laufschrift auf image

[any_key]

aloah
ich hab mal ne kurze frage
undzwar würde ich gerne auf einem image einen text von links nach rechts durchlaufen lassen
wenn er rechts angekommen ist soll er wieder von links ankommen
dazu hab ich jetzt folgenden code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  if i=300 then
    i:=1;


  for i:=1 to 300 do begin
    Application.ProcessMessages;
    Image1.Canvas.TextOut(i, 20, 'hallo');
    sleep(10);
    end;
end;

aber irgendwie bleib der text dann einfach bei 300 stehen

[Sunlight7]

Das kann nicht funktionieren.
Die FOR Schleife wird einmal durchlaufen und verläßt dann Button1Click, da i eine lokale Variable ist kann i nicht 300 beim betreten sein, weil sie nicht initialisiert wurde.

Delphi-Quellcode:

i:=0;

While TRUE do begin // So sollte man das nicht machen, nur als Beispiel
   Inc(i, 1);
   If i>=300 then i:=0;
end;

PS: Sieh' mal da rein