Einzelnen Beitrag anzeigen

Haxx0r79

Registriert seit: 9. Okt 2009
12 Beiträge
 
#1

Repeat-Until Schleife bei Bewegen eines Bilds

  Alt 9. Okt 2009, 13:35
Hi erstmal

Ich hab dieses Forum gefunden und dachte mir ich mach mal nen Account und stell gleich mal meine erste Frage

Also hier kommt sie

////////////////////////////////////////////////
procedure TForm1.losfahrenClick(Sender: TObject);
var streckev:integer;

begin
streckev:=StrToInt(strecke.Text)
repeat
autobild.Left:=autobild.Left+1
until autobild.Left=streckev


end;

end.
///////////////////////////////////////////////

das hier ist mein Code den ich benutze.
Meine Aufgabe ist es ein Bild von nem Auto über den Bildschirm fahren zu lassen.

Dazu nehm ich mal den Leftwert des Bildes und addiere halt etwas dazu.

ich habn Eingabefeld undn Button
ins Eingabefeld kommt die Strecke die das auto fahren soll(in metern)
und der Code oben ist halt was passieren soll.

ABER

Wenn ich das ausführe steht da
[Fehler] Unit1.pas(54): Operator oder Semikolon fehlt
[Fehler] Unit1.pas(59): Inkompatible Typen: 'Integer' und 'procedure, untyped pointer or untyped parameter'
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

was mache ich falsch?
  Mit Zitat antworten Zitat