Hallo Leute
Aufgrund Euerer Antworten ist mir plötzlich eine Lösung eingefallen, die in allen Programmiersprachen funktioniert:
Klar Fox ist nicht Delphi, darum wechsle ich auch auf Delphi und verlasse das Fox, doch ich habe eine Lösung, die ich vom Fox her abgewandelt habe:
Beispiel:
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(round(rech3 * 100) / 100);
end;
Und wenn wir schon dabei sind, hier meine Lösung um auf 5 zu Runden, was man in der CH braucht:
Delphi-Quellcode:
var
Form1: TForm1;
rech1 : single;
rech2 : single;
rech3 : single;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
rech1 := 2.75;
rech2 := 55;
rech3 := rech1 / rech2;
label1.Caption := floattostr(round(rech3 * 20) / 20);
end;
Also vielen Dank für die Tipps, doch so unter uns, bin verdammt stolz, dass ich eine Lösung gefunden habe.
Peter