Probleme bzw. Fehlermelung bei FindFirst

[FatFranky]

Moin Leute,
ich will aus einem lokalem verzeichnis per FTP auf einen server tranferieren.
Die datein .doc, .txt, .jpg sind alle lokal in einem verzeichnis.
Auf dem server wechsel ich mit changeDir das zielverzeichnis.

Wenn ich meine FindFirst routine 3x hintereinander aufrufe funktioniert alles.

Weil aber 3x das gleich blöd ist habe ich eine procedur geschrieben

Delphi-Quellcode:

procedure TFormFtp.pFind();
var
  SearchRec: TSearchRec;
  i: integer;
  s: string;
begin
  i := FindFirst((Form1.EditTempStore.Text) + LabelExtension.Caption, faAnyFile, SearchRec);
                         // LabelExtension.Caption = versch. Endung (doc, txt...)
  while i = 0 do begin
      ListBoxFtp.Items.Add(SearchRec.Name);
      i := FindNext(SearchRec);
    end;
    FindClose(SearchRec);
    begin
    for i := 0 to ListBoxFtp.Items.Count -1 do
      begin
        s := ListBoxFtp.Items[i];
        IdFTP.Put((Form1.EditTempStore.Text) + s, s);
        ListBoxFtp.Items[i] := '';
        ListBoxFtp.clear;
      end;
    end;
end;

Nun stelle ich meine verbindung zum server her, rufe pFind(); auf und übertrage eine *.doc datei
verzeichnis wechsel aufm server, aufruf pFind(); und übertrage eine *.txt datei

Bis hierher alles Super.

Nun, verzeichnis wechsel aufm server, aufruf pFind(); und übertrage eine *.jpg datei
funzt auch noch
ABER: wenn es mehrere *.jpg datein sind kommt folgener Fehler:
...eine Exception der klasse EStringListRrror aufgetrten
Listenindex überschreitet das maximum(1)

Wo ist mein Fehler?

[Luckie]

Delphi-Quellcode:

    for i := 0 to ListBoxFtp.Items.Count -1 do 
      begin 
        s := ListBoxFtp.Items[i]; 
        IdFTP.Put((Form1.EditTempStore.Text) + s, s); 
        ListBoxFtp.Items[i] := ''; 
        ListBoxFtp.clear; 
      end;

Annahme 3 Items sind in der Listbox. Bei einer for-Schleife wird vor dem Schleifendurchlauf festglegt, wie oft sie durchlaufen wird. Hier also dreimal. Ok, was passiert jetzt? Er geht die Schleife zum ersten mal durch. Alles klar geht. Nur am Ende der Schleife leerst du die Listbox, so dass er beim zweiten und dritten mal auf nicht vorhandene Items der Listbox zugreifen will. Und das macht er natürlich nicht mit. Ergo, lösch den Inhalt der Listbox einfach nicht.

[FatFranky]

Hi Luckie,

nee, is klar: :wall:

Trivialer Fehler, aber ich hab x- mal düberweg gesehn.

Danke