|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.628 Beiträge
Delphi 12 Athens
|
Re: Zahlen mit Komma vergleichen
11. Nov 2007, 19:59
Wie in meiner PN beschrieben, könnte es so gehen:
Delphi-Quellcode:
function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
summe:=summ1 + summ2;
Result := trunc(summe * 100) in [11,33,55,77,99,111,133,155,177,199];
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|
|
|
Zitat
|