請教先進 小弟用IdFTP取得檔案清單後,如何把"目錄"排在上面, 把"檔案"放在下面,就像檔案總管那樣,在Indy的Demo裡 找不到這樣的範例 感激不盡

var  DirectoryList:TStringList;  FileList:TStringList; begin     DirectoryList:=TStringList.Create;;   FileList:=TStringList.Create;         // 取得目錄  IdFTP1.List(DirectoryList,'*');     // 取得檔案  IdFTP1.List(FileList,'*.*');     //DirectView 是 TListBox  //加入 目錄 及 檔案  DirectView.Items.Clear;  DirectView.Items.AddStrings(DirectoryList);  DirectView.ItemsAddStrings(FileList);      DirectoryList.Free;   FileList.Free;        僅供參考,歡迎繼續發言

------
︿︿

引言: var DirectoryList:TStringList; FileList:TStringList; begin DirectoryList:=TStringList.Create;; FileList:=TStringList.Create; // 取得目錄 IdFTP1.List(DirectoryList,'*'); // 取得檔案 IdFTP1.List(FileList,'*.*'); //DirectView 是 TListBox //加入 目錄 及 檔案 DirectView.Items.Clear; DirectView.Items.AddStrings(DirectoryList); DirectView.ItemsAddStrings(FileList); DirectoryList.Free; FileList.Free; 僅供參考,歡迎繼續發言

呵,原來是這樣子呀,太感謝前輩了,謝謝

不好意思,再請教前輩一個問題   // 取得目錄 IdFTP1.List(DirectoryList,'*'); => 這樣會是還把所有的檔案都列出來 // 取得檔案 IdFTP1.List(FileList,'*.*'); => ok的

 
//換個方法試試
PROCEDURE TEST;
var
i:integer;
IsDirectory:Boolean;
DirectoryList:TStringList;
FileList:TStringList;    begin    DirectoryList:=TStringList.Create;
IdFTP1.List(DirectoryList);    DirectView.Items.Clear;    // 找目錄
for i:=0 to DirectoryList.COUNT-1 do
begin
 GetNameFromDirLine(DirectoryList[i],IsDirectory): 
 if IsDirectory then
        DirectView.Items.Add(DirectoryList[i]);
end;    //找檔案
for i:=0 to DirectoryList.COUNT-1 do
begin
 GetNameFromDirLine(DirectoryList[i],IsDirectory): 
 if NOT IsDirectory then
        DirectView.Items.Add(DirectoryList[i]);
end;    DirectoryList.Free;    end;    function GetNameFromDirLine(Line: String; Var IsDirectory: Boolean): String;
Var
  i: Integer;
  DosListing: Boolean;
begin
  IsDirectory := Line[1] = 'd';
  DosListing := false;
  for i := 0 to 7 do 
  begin
    if (i = 2) and not IsDirectory then 
    begin
    IsDirectory:=Copy(Line,1,Pos(' ',Line)-1)='';       if not IsDirectory then
     DosListing := Line[1] in ['0'..'9']
   else DosListing := true;
  end;      Delete(Line, 1, Pos(' ', Line));      While Line[1] = ' ' do Delete(Line, 1, 1);      if DosListing and (i = 2) then break;
  end;
  Result := Line;
end;    

僅供參考,歡迎繼續發言 發表人 - cmf 於 2003/04/19 13:31:01

------
︿︿

這一行無法顯示 IsDirectory:=Copy(Line,1,Pos(' ',Line)-1)=''; // = 的後面是 字串 '<'+'DIR'+'>'; 僅供參考,歡迎繼續發言

------
︿︿