Fórum Formatar um edit para receber um campo Float #217451

01/03/2004

0

Delphi

:roll:
Colocar para receber um campo Float mas se possivel com os simbolo
R$ 0.00[b:882b52c321][/b:882b52c321]


Farjola

Farjola

Responder

Posts

01/03/2004

Oratis

Talvez seja melhor usar o Maskedit


Responder

Gostei + 0

01/03/2004

Paulo_amorim

Talvez seja melhor usar o Maskedit


Olá

De fato, o MaskEdit eh melhor.
Entretanto, se necessita do TEdit, que tal

TForm1.Edit1OnExit(Sender as TObject);
begin
Edit1.Text := ´R$´  + FormatFloat(´0,00´ , MyFloat);
end


Quem sabe ajude


Responder

Gostei + 0

01/03/2004

Paulo Trajano

Ou, se preferir:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  MyFloat:string;
begin
  MyFloat:=FormatFloat(´R$ #,0.00´, StrToFloat(Edit1.Text));
  Edit1.Text:=MyFloat;
end;


Blz?


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar