hab bei dem code das selbe ergebnis
wenn ich als variablen aber statt single, extended verwende, kommt 1 raus
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Ergebnis,Zahl1,Zahl2:extended;
begin
Zahl1:=0.575;
Zahl2:=0.675;
Ergebnis:=0.100/(Zahl2-Zahl1);
label1.Caption:=floattostr(Ergebnis);
end;
Das echte Leben ist was für Leute...
... die im Internet keine Freunde finden!