Habe bisher mit Fox Pro gearbeitet und stehe auf dem Schlauch:
Runden: Ich will eine Zahl auf 2 Stellen runden, meine Test funktioniert nicht, es will einfach die Funktion roundto nicht akzeptieren:
Delphi-Quellcode:
var
Form1: TForm1;
rech1 : single;
rech2 : single;
rech3 : single;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
rech1 := 8;
rech2 := 9;
rech3 := rech1 / rech2;
label1.Caption := floattostr(roundto(rech3, -2));
end;
Peter