ProgressBar endlosschleife

[lbccaleb]

Delphi-Quellcode:

procedure TSplashScreen.Timer1Timer(Sender: TObject); 
begin
  if Progressbar1.position > 100 then
    progressbar1.position := 0;
  else
    progressbar1.position := progressbar1.position + 1;
end;

das sollte so eigentlich funzen aus dem stehgreif



edit:

hatte mein probleme mit dem begin und end

edit2:

ps du brauchst in dieser version die var i nicht mehr...
ausserdem könntest du auch

  if Progressbar1.position > 99 then nehmen, das musst du ausprobieren wie du es besserbrauchst..


edit3:

ok, hab das fehlerhafte inc entfernt, so viel edits, ist schon wieder spät am abend, man man


edit4: so nun aber und jetzt geh ich pennen, langer arbeitstag

mfg