|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Zahlen mit Komma vergleichen
11. Nov 2007, 20:10
Hi,
Ich habs so gemacht. Also so ähnlich wie es schon gesagt wurde.
Delphi-Quellcode:
function Nachkomma(R: Single): Integer;
begin
Result := Round(R*100 - Floor(R)*100);
end;
function IsPair(x1,x2: Single): Boolean;
begin
Result := Nachkomma((NachKomma(x1) + Nachkomma(x2)) /100) in [11,33,55,77,99];
end;
Gruß
Neutral General
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|
|
|
Zitat
|