Mit der Funktion gehts so:
Delphi-Quellcode:
aVektor := Vektor(1, 0, 160);
bVektor := Vektor(0, 1, 7);
Und von mir gibbet gratis eine drauf:
Delphi-Quellcode:
function multiVektor(const v: TVektor; const q: integer):TVektor;
begin
Result.a := v.a * q;
Result.b := v.b * q;
Result.c := v.c * q;
end;
Verwendung:
cVektor := multiVektor(aVektor, q);