各位先進好，我使用了findfirst這個函數要搜尋資料夾下面的檔案 然後如果找到的話，就將檔名寫入memo中 如： if firstfirst(path:\*.*,faanyfile,f)=0 then memo1.line.add(f.name) 可是不知道為何？每次寫入的順序都跟從檔案總管看到的不同 想請教一下，如果想讓搜尋出來的結果按照檔名，或是檔案大小，或是附檔名之類的排序該如何做到呢？

I think you need to sort it yourself, e.g. 1) store all TSearchRec in a TList 2) perform a sort on the list, e.g. List1.Sort(SortMethod) 3) loop through the list and update the memo

謝謝版主的回應 我現在也是用這種方法來先作排序 可是這麼一來，只能排序"檔名" 如果我想針對"檔案大小" or"屬性"...之類作排序 該如何做呢？

Resort the list and update the memo?    Assume you have all TSearchRec stored in List1, i.e. List1.Items[0] is a PSearchRec (=^TSearchRec), then    

{ sorting function for attribute }
function AttrSort(p1,p2: pointer): integer;
begin
    if PSearchRec(p1)^.Attr < PSearchRec(p2)^.Attr then
        Result := -1
    else if PSearchRec(p1)^.Attr = PSearchRec(p2)^.Attr then
        Result := 0
    else
        Result := 1;
end;
{...}
List1.Sort(AttrSort);
{ update the memo }

版主大大，謝謝您的回應    可是在下小弟我的程式功力沒那麼好，您的有些用法小弟我看不大懂    能否請稍微解釋一下程式碼的用途呢？謝謝！    EX: ^是做什麼用的呢？請教^^

^ means dereferencing the pointer.. PSearchRec(p1)^.Attr means typcase the pointer p1 as PSearchRec and get the Attr member of the TSearchRec to which it is pointing. TList has a sort method (using quick sort) and you need to supply you own comparing method (e.g. AttrSort) or it.

謝謝您...