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.