if and oder wo liegt der Fehler

[Spurius]

Hallo,
ich find in folgendem Code den Fehler nicht. Die Fehlermeldung ist ein fehlender Operator oder ein Semikolon:

Delphi-Quellcode:

procedure TCar.domove(movecount: Integer);
var m: Boolean;
begin
 inherited;
 m := false;
 if (m = false) and (car.Moved = false) begin
  if IsRight in Form1.DXInput1.States then begin
   Direction := 'Right';
   x := x + 3;
   m := 1;
   end;
  end;

........
Wahrscheinlich ein ganz simpler Fehler aber ich seh in einfach nicht.
Gruß
Spurius

[nailor]

Zitat:

Zitat von Spurius

Hallo,
ich find in folgendem Code den Fehler nicht. Die Fehlermeldung ist ein fehlender Operator oder ein Semikolon:

Delphi-Quellcode:

procedure TCar.domove(movecount: Integer);
var m: Boolean;
begin
 inherited;
 m := false;
 if (m = false) and (car.Moved = false) TTTTTTTTTTHHHHHHHHHHHHHEEEEEEEEEEEEEEEEENNNNNNNNNNNNNNN begin
  if IsRight in Form1.DXInput1.States then begin
   Direction := 'Right';
   x := x + 3;
   m := 1;
   end;
  end;

........
Wahrscheinlich ein ganz simpler Fehler aber ich seh in einfach nicht.
Gruß
Spurius

hat aber auch ne weile gedauert, bis ich ihn hatte ;) vor lauter bäumen...

[kiar]

m ist boolean und du addierst in deiner schleife 1 dazu.

[nailor]

das könnte sogar vielleicht noch klappen, aber machen sollte man es trotzdem nicht. hab ich total übersehen... vielleicht gibts noch nen dritten fehler?

[Spurius]

Hallo,
am 'then' lags. Vielen Dank!
Da mit dem addieren ist schon klar, ich hatte die m-Variable geändert von
Integer->Boolean und muss das auch noch ändern.