Erklärung Durchlauf

[SaFu]

Hallo zusammen

hab mal ne Frage, mir hat jemand bei dem Programmcode geholfen verstehe vertehe schon was es macht aber nicht genau kann mir vielleicht jemand mal erklären wie genau der durchlauf der Items Funktioniert bzw. an welcher stelle der durchlauf neu anfängt.


danke schonmal

Delphi-Quellcode:

//===============Durchlauf der Bilder===========================================
procedure TForm4.Timer2Timer(Sender: TObject);
begin
  if FileListBox1.Items.Count > 0 then 
   begin
     if index > FileListBox1.Items.count -1 then
      index:= 0; //index auf "O" setzen
        FileListbox1.Selected[index]:= true; //Aktuellen index makieren
          bild:= Lowercase(ExtractFileExt(Bilddat + FileListBox1.Items[index]));

      if (bild = '.jpg') then //Pfad + .jpg
        begin
          Image1.Picture.LoadFromFile(Bilddat + FileListBox1.Items[index]);// Laden der Bilder
          Form3.Image1.Picture:= Image1.Picture;// Kopieren der Bilder auf Form3
        end;

     inc(index); //Index +1
   end;
 end;

//============Durchlauf anhalten================================================
procedure TForm4.Button3Click(Sender: TObject);
begin
  Timer2.Enabled:= False;
end;

//============Durschlauf starten================================================
procedure TForm4.Button2Click(Sender: TObject);
begin
  Timer2.Enabled:= True;
  index:= 0; //Index auf "0" setzen
end;