Vektorenaddition

[vsilverlord]

Hallo,
ich hab eine eigene Klasse:

Delphi-Quellcode:

Tvektor= packed record
   x,y,z:currency;
   end;

funktioniert auch wunderbar. Wenn ich zwei Vektoren addieren will, mache ich das so:

Delphi-Quellcode:

function tform1.vektoradditon(a,b:tvektor):tvektor;
begin
result.x:=a.x+b.x;
result.y:=a.y+b.y;
result.z:=a.z+b.z;
end;

Nur leider funktioniert es nicht, wenn ich es aufrufe:
Koordinaten:=vektoraddition(Koordinaten,Geschwindigkeit) Warum funktioniert das nicht???
danke schon im vorraus, delphipraxis ist wirklich super

[Dax]

Zitat von vsilverlord:

Warum funktioniert das nicht???

Warum funktioniert was nicht?

[Die Muhkuh]

a) Ist das keine Klasse, sondern ein Record
b) Wäre es interessant zu wissen, was nicht funktioniert...

[Tormentor32]

Eine Beschreibung, WAS nicht funktioniert wäre gut gibts nen Fehler oder macht der nichts?

Ins Blaue geraten: Vielleicht weil deine Addieren function eine funktion von Form1 ist?

[Namenloser]

Breakpoint auf die Zeile, mit F7 durchsteppen und die Variablenwerte überwachen.

[mkinzler]

Brauchst du unbedingt die Enterprise Features? Sonst könntest du unter TDE (D10) Klassenoperatoren verwenden.

BTW. Du hast den Fehler in deinem Profil immer noch nicht beseitigt: Baden-Württemberg schreibt man ohne h

[shmia]

Schau dir mal deine Funktion (die in Wirklichkeit eine Methode ist) genau an:

Delphi-Quellcode:

function tform1.vektoradditon(a,b:tvektor):tvektor; 
begin 
result.x:=a.x+b.x; 
result.y:=a.y+b.y; 
result.z:=a.z+b.z; 
end;

Warum ist die Funktion Bestandteil der Klasse TForm1 ??
Die Vektoraddition hat doch absolut nichts mit dieser Klasse zu tun.

[vsilverlord]

ok danke für euren schnellen antworten. muss an was anderem liegen, dass sich gar nichts verändert, also dass nichts addiert wird.

[shmia]

Zitat von vsilverlord:

muss an was anderem liegen, dass sich gar nichts verändert, also dass nichts addiert wird.

Das funktioniert ganz sicher, nur hast du im Moment Tomaten auf den Augen und kontrollierst die falschen Variable, etc.

Delphi-Quellcode:

procedure VektorTest;
var
  a,b,c : Tvektor;
begin
  a.x := 1;
  a.y := 2;
  a.z := 3;
  b.x := 3;
  b.y := 2;
  b.z := 1;

  c := vektoradditon(a,b);
  ShowMessageFmt('c=(%d,%d,%d)', [c.x,c.y,c.z]);
end;

Bin mir ziemlich sicher, dass da (4,4,4) als Ergebnis rauskommen wird.