|
Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge
Turbo Delphi für Win32
|
Re: Vergleich bei Double
26. Jan 2006, 14:10
Delphi-Quellcode:
function VglDouble (const Zahl1,Zahl2: Double);
const
Epsilon: = 1E-10;
begin
Result := Abs (Zahl1-Zahl2)<Epsilon;
end;
Da sprach der Stumme zum Blinden: "Du wirst sehen ..."
oder
Wer lesen kann, ist klar im Vorteil!
|