Math Bibilothek

[OSIcreate]

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

[mkinzler]

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

[Jakob Ullmann]

Lad dir doch einfach ne Trial herunter.

[Matze]

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

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.

[OSIcreate]

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

[Jakob Ullmann]

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.