Hi,
erstmal musst du bei deiner Funktion "IsFile" diese zwei < und > entfernen
Diese waren nur dafür gedacht, dass du später dort deinen Dateinamen reinsetzten sollst.
Und die Procedure "Listbox1DblClick" müsste so heißen:
Delphi-Quellcode:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
if Listbox1.ItemIndex <> - 1 then
begin
if IsFile(ListBox1.Items[ListBox1.ItemIndex]) then // Hier ist es eine Datei
begin
// Hier kommt dein Code zum eine Datei runterzuladen
end
else
begin
IDFTP1.ChangeDir(Listbox1.Items[Listbox1.ItemIndex]); // Verzeichnis wechseln
idftp1.list(listbox1.items,'',false);
end;
end;
end;
@Michael,
dein Code ist falsch. Da sind noch zwei < und > drinne