Formatar um edit para receber um campo Float

Delphi

01/03/2004

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


Farjola

Farjola

Curtidas 0

Respostas

Oratis

Oratis

01/03/2004

Talvez seja melhor usar o Maskedit


GOSTEI 0
Paulo_amorim

Paulo_amorim

01/03/2004

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


GOSTEI 0
Paulo Trajano

Paulo Trajano

01/03/2004

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?


GOSTEI 0
POSTAR