Hab ein kleines Programm geschrieben in VB welches ich nach Delphi protiere

Wie kann ich Sqr verwenden damit ich auf das gleiche Ergebnis komme?
in VB ist Sqr als Double deklariert.
in Delphi als Real(Extended) oder als Integer.

Deshalb kommt es zu unterschiedlichen Ergebnissen.

markieren

Delphi-Quellcode:

  Dx := 331;
  Dy := 50;
  LenI := Sqr(Dx * Dx - Dy * Dy);

´
Ergebnis ist -1422844167

markieren

Code:

Dx = 331
Dy = 50
LenI = Sqr(Dx * Dx + Dy * Dy)

Ergebnis ist 335

Das hat zur folge das mir in Delphi die richtigen Maus positionen nicht übergeben werden
und mein vergleich immer ins negative geht.

gruss

Weil

1.

markieren

Code:

VB = SQR = Wurzel
Delphi = SQR = Quadrat

und
2.

markieren

Code:

LenI := Sqr(Dx * Dx - Dy * Dy);
LenI = Sqr(Dx * Dx + Dy * Dy)

Wie denn Minus oder Plus, was soll denn gerechnet werden?

Also was in VB so aussieht

markieren

Code:

LenI = Sqr(Dx * Dx - Dy * Dy)

sieht in Delphi so aus
LenI := Sqrt(Dx * Dx - Dy * Dy)

Zitat:

Wie denn Minus oder Plus, was soll denn gerechnet werden?

Ahh jo danke hab mich verschrieben

so geht's jetzt
Leni := round(Sqrt(Dx * Dx + Dy * Dy)); Weil die positionen der Maus übergeben werden und die sind bei TPoint nun mal Longint

Zitat:

Kaum macht man's richtig - schon funktioniert's

nö bei dir auch nicht Hehehhehe (kleiner Spass)

Thanks