FormatFloat probleempje [Delphi 7 Personal]

[anoniem]

Ik kan het me niet meer herinneren! :x Ik wil een tekst in een TEdit box 'formatfloaten' op de volgende manier tijdens de onExit event. Bv.: als er 0 (nul) in staat moet het 00 worden. Wie helpt mij? Ik had de volgende code: [code:1:f5825418a0]procedure TForm1.Edit1Exit(Sender: TObject); var s: string; begin s := Edit1.Text; Edit1.Text := FormatFloat('00', s); end;[/code:1:f5825418a0] En als ik het met tijd wil doen doe ik het volgende: [code:1:f5825418a0]procedure TForm1.Edit1Exit(Sender: TObject); var s: string; begin s := Edit1.Text; Edit1.Text := FormatFloat('00:00', s); end;[/code:1:f5825418a0] Ik krijg bij het compilen telkens de melding dat: FormatFloat cannot be runned with these arguments of zoiets.

[anoniem]

Formatfloat werkt niet met een string maar met een getal, bv extended. Hier een voorbeeld. [code:1:2141f7ed85] procedure TForm1.Button1Click(Sender: TObject); var S : string; N : Extended; begin S := Edit1.Text; N := StrToFloat(S); S := FormatFloat('00.',N); Edit1.Text := S; end;[/code:1:2141f7ed85] Als je met een string wilt werken kijik dan bij format strings, bv de FmtStr procedure. wimb

[anoniem]

Thnx