Delphi-Quellcode:
procedure TVektor.setzeLaenge(laenge:double);
begin
x1:= (x1/giblaenge) * laenge;
x2:= (x2/giblaenge) * laenge;
end;
So wird das nix
. Du musst den Vektor-Betrag in einer Variable speichern, bevor die einzelnen Komponenten zugewiesen werden.