Buscar por:
Código function ZerosString(Qtde:integer):String; {Insere Zeros à frente de uma string} begin result := StringOfChar('0',Qtde-Length(String) + String); end;
function ZerosString(Qtde:integer):String; {Insere Zeros à frente de uma string} begin result := StringOfChar('0',Qtde-Length(String) + String); end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009