//Para completar um número com zeros à esquerda é só usar a função FormatFloat, como no exemplo abaixo:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatFloat('000000', 5));
end;
Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】
Nenhum comentário:
Postar um comentário