Buscar por:

Função strzero(clipper p/ delphi)

Código

// Dica Muito util !!!!!!!!

function StrZero(N: longint; Tamanho: integer): string;

var

  Conteudo: string;

  Diferenca: longint;

begin

  Conteudo := IntToStr( N );

  Diferenca := Tamanho - Length( Conteudo );

  if Diferenca > 0 then

    Conteudo := Repl( '0', Diferenca ) + Conteudo;

  StrZero := Conteudo;

end;

//vc entra com um intero e a quantidade de zeros que deseja manter a esquerda.

//Edit1.text := Strzero(5,5);  

//== resutado 00005

//Edit2.text := 35;

//Edit1.text := Strzero(StrtoInt(Edit2.text),5);

//== resutado 00035