terça-feira, 10 de novembro de 2009

Colocar zeros a esquerda de um valor edit

Procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.Text := FormatFloat('000000',StrToFloat(Edit1.Text));
end;

Nenhum comentário:

Postar um comentário