Auf 2 stellen Runden

[Kuster Peter]

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