Variablen Verwendung

[Mb123]

Delphi-Quellcode:

Function Vektor(Const a, b, c: Integer): TVektor;
Begin
  Result.a := a;
  Result.b := b;
  Result.c := c;
End;

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;

function substVektor(const from, vek: TVektor):TVektor;
begin
  Result.a := from.a - vek.a;
  Result.b := from.b - vek.b;
  Result.c := from.c - vek.c;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin


  uVektor := Vektor(1,0,160);
  vVektor := Vektor(0,1,7);



     while (vVektor.c <> 0) do
begin
  q := uVektor.c div vVektor.c;
  tVektor := substVektor(uVektor, multiVektor(vVektor, q));
  uVektor := vVektor;  
  vVektor := tVektor;
end;
end;

end.

jetzt hab ichs so stehen und er sagt mir

Zitat:

[Error] berechneD.pas(82): '(' expected but ':=' found
[Error] berechneD.pas(84): '(' expected but ';' found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'berechneD.pas'

der fehler kommt an dieser stelle :

Delphi-Quellcode:

  tVektor := substVektor(uVektor, multiVektor(vVektor, q));
  uVektor := vVektor;  
  vVektor := tVektor;