Problem mit IdFTP upload in einer Schleife

[Andreas L.]

Hi,
ich habe folgende Schleife erstellt:

Delphi-Quellcode:

var
i : Integer;
begin
 for i:=1 to ListBox1.items.count-1 do
  begin
   idftp1.ChangeDirUp;
   idftp1.ChangeDirUp;
   idftp1.ChangeDir('softprose');
   idftp1.ChangeDir('pub');
   idftp1.Put(listbox1.Items.Strings[i],extractfilename(listbox1.Items.Strings[i]),true);
  end;

Gehen tuts nicht, wenn ich mir via ShowMessage(inttostr(listbox1.Items.Strings[i])); zeigen lasse was i ist erscheint auch keine message box. findet wer den fehler?

Greetz und thx

[Ultimator]

Probiers mal nur mit .Items, also ohne das .Strings hintendran. Vielleicht hilft das was.

[Silenoz84]

Zitat:

Gehen tuts nicht, wenn ich mir via ShowMessage(inttostr(listbox1.Items.Strings[i])); zeigen lasse was i ist erscheint auch keine message box. findet wer den fehler?

Öhm... das kann ja auch net klappen! TStrings gibt (oh welch erstaunen) auch nur en String Datentyp zurück, das gibts nix von Integer zu String zu konvertieren! Frage mich sowieso warum du nich' einfach den gewünschten Eintrag mit

Code:

listbox1.Items.[i];

abfragst??

Das mit inttostr() würde so funzen:

Code:

ShowMessage(inttostr(i));

glaube aber kaum dass du das meintest ;)

Diese Put Procedur und die entsprechende idFtp KOmponenete(?) kenn ich jetz net, also kann ich dazu nüx sagen, prüf einfach mal ganz genau ob die Parameterübergaben von Put wie folgt deklariert sind:
Put(String, String, Boolean) weil sognau sehen deine Übergabewerte aus!

*greetZ* Oli

[SirThornberry]

ich denk mal der Fehler ist

Delphi-Quellcode:

for i:=1 to ListBox1.items.count-1 do

sollte bestimmt

Delphi-Quellcode:

for i:=0 to ListBox1.items.count-1 do

sein. hast du nur ein Item
Außerdem find ich es irrsinn

Delphi-Quellcode:

   idftp1.ChangeDirUp;
   idftp1.ChangeDirUp;
   idftp1.ChangeDir('softprose');
   idftp1.ChangeDir('pub');

mit in die schleife zu packen. Dadurch wird doch jedesmal der Ordner gewechselt und dann vermutlich doch wieder in den gleichen ordner gegangen...