假設我現在有兩個tImage 第一個tImage是預比對的圖 第二個tImage是從資料夾裡抓出的圖(很多張圖) 我現在的問題是因為我第個tImage我都是要手動載入去運算 我現在想要可以按一個button然後可以自動把資料夾底下的圖載入一張並運算完後再載入下一張圖....一直做到資料夾底下的所有檔案都做完 不知道可以做到嗎??? 謝謝教學喔.....

底下的範例中, 參數FileList會傳回你指定的目錄(sFolderName)中的全部檔案。如果你指定副檔名, 可以在第三個參數中設定。 希望對你有幫助。

procedure TTKS_FOlderOp.DirListByFullName(
                             const sFolderName: String;
                             FileList:TStrings; const ExtName:String='*.*');
var
  srec :  TSearchRec;
  sCurDelFolder : String;
begin
  sCurDelFolder := IncludeTrailingBackslash(sFolderName);
  if FindFirst(sCurDelFolder    ExtName , faAnyFile ,srec ) = 0 then begin
    Repeat
      // *********[XX Begin] **************
      if (srec.Name <> '.') and (srec.Name <> '..') then begin
        if srec.Attr <> faDirectory then begin
          FileList.Add(sCurDelFolder srec.Name);
        end;
      end;
      // *********[XX End] **************
    until FindNext(srec) <> 0;
    FindClose(srec);
  end;
end;

對不起喔.... 上面有好多我沒用過的程式碼 不知道可以詳細的講解一下嗎 我第一次寫有關這種的程式 完全的新手><~~ 這些程式碼也是BCB的嗎?? 我今天想說先丟近BCB看看可不可以run但是不行說.. 發表人 - walacow 於 2005/03/13 16:15:43