Hi

Leider gibt es in älteren Versionen < 2006 in der Unit Math keine Funktion CompareValue die ich aber dringend für eine 2d Engine benötige. Könnte mir jemand den Quellcode für diese Funktion schicken??

Vielen dank

Wäre nicht legal. Wie wäre es mit Selberschreiben?

Lad dir doch einfach ne Trial herunter.

Wenn du 2 Fließkommazahlen vergleichen möchtest, dann geht das wie hier beschrieben:

markieren

Delphi-Quellcode:

function VglDouble (const Zahl1, Zahl2: double);
const
  Epsilon: = 1E-10;
begin
  Result := Abs(Zahl1-Zahl2) < Epsilon;
end;

Das kannst du dir natürlich für größer/kleiner noch anpassen. Vergleicht wird hier nur auf Gleichheit.

Selber Schreiben is gut gesagt
Hab nicht mal n plan für was die Funktion CompareValue dais und ich kann ja nicht einfach ne Procedure in der 2 Engine ändern.

mfg

Das sagt doch schon der Name, wozu die da ist, oder nicht?

Compare = vergleichen
Value = Wert

Sie vergleicht zwei Werte (auch wenn sie dann vll besser CompareValues heißen sollte, das kann man sich doch denken). Außerdem hat Matze dir doch schon den Code geschickt.

PS: Ich ändere ständig Prozeduren (naja nicht ändern sondern löschen, weil sie Compilierfehler hervorrufen). Guckst du dir an, wie mit der Funktion gearbeitet wird und schreibst dann selber eine.