Einzelnen Beitrag anzeigen

Benedikt
(Gast)

n/a Beiträge
 
#5

Re: Problem beim Ordnerwechsel mit dem FTP Client

  Alt 4. Aug 2004, 10:42
Hi,

warum überhaupt der Aufwand mit der Schleife?
In deinem Falle ist ja eh nur ein Item selektiert bzw. kann du auch nur in einen Ordner reinwechseln, so dass das abfragen von ItemIndex wesentlich einfacher wäre:

Delphi-Quellcode:
//OnDblClick-Ereignis der Listbox
procedure TForm1.ListBox_FTPINHALTDblClick(Sender: TObject);
begin
   //Überprüfen ob ein Item ausgewählt ist
   if (ListBox_FTPINHALT.ItemIndex<>-1) then
   begin
      //Ist das ausgewählte Item ein Ordner (benötigt: uses IdFTPList)
      if (IdFTP1.DirectoryListing.Items[ListBox_FTPINHALT.ItemIndex].ItemType=ditDirectory) then
      begin
         //Verzeichnis wechseln
         IdFTP1.ChangeDir(IdFTP1.DirectoryListing.Items[ListBox_FTPINHALT.ItemIndex].FileName);
         
         //Listbox leeren und füllen
         ListBox_FTPINHALT.Items.Clear;
         IdFTP1.List(ListBox_FTPINHALT.Items);
      end;
   end;
end;
  Mit Zitat antworten Zitat