Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

FormatFloat probleempje [Delphi 7 Personal]

Anoniem
DJPeedee
2 antwoorden
  • 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.
  • 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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.