請問各位高手: 我有1-1.BMP,1-2.BMP,.....1-10.BMP十個圖檔 然後我需要將他們一一讀進來,想說用for回圈如下 for(int i=1;i<=10;i ) Image1->Picture->LoadFormFile(??); 如果能用這樣的方式code的話...問號裡面要如何code呢?? 還有就是... 用LoadFromFile的話,圖檔擺放的位置一定要在Borland的peojects裡嘛? 如果圖檔(1-1.BMP)放在C:\中,我code Image1->Picture->LoadFormFile("C:\1-1.BMP)卻是有錯的.... 感激不盡..........

Hi Allanx您好: 小弟想到兩種方式: 1.檔名如果有規則 for(int i=1;i<=10;i++) Image1->Picture->LoadFormFile("C:\1-"+inttostr(i)+".bmp");     2. 檔案名稱不固定, 但是都放在同一目錄下D:\Photo 我這邊提供Delphi範例, 您可以自行轉換BCB, 可參考包子板大的程式 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44946

procedure TForm1.Button1Click(Sender: TObject);
var
FileRec:TSearchrec;
Sour: String;
begin
  Sour:='D:\photo\';
  if FindFirst(Sour '*.jpg',faAnyfile,FileRec) = 0 then
    repeat
       begin
        Image1.Picture.LoadFromFile(Sour FileRec.Name);      
       end;
    until FindNext(FileRec)<>0;      FindClose(FileRec);    end;

發表人 - yachanga 於 2004/05/19 00:07:07

yachanga 您好: 讀檔問題我已經解決ㄌ...感謝... 不過讀檔入徑問題..因為我不懂delphi轉BCB所以希望您能再指導一下... 我敘述完整一點.. 假設我的程式放在newproject的檔案夾裡... 裡面還有個image的檔案夾都是放圖檔用的.. 也就是說我想LoadFromFile的入徑是newproject\image\.. 如何設定呢?? 還有newproject這個檔案夾是並非固定在同一個位置的.. 感激不盡.....

bcb版的 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44098 ^^

引言: yachanga 您好: 讀檔問題我已經解決ㄌ...感謝... 不過讀檔入徑問題..因為我不懂delphi轉BCB所以希望您能再指導一下... 我敘述完整一點.. 假設我的程式放在newproject的檔案夾裡... 裡面還有個image的檔案夾都是放圖檔用的.. 也就是說我想LoadFromFile的入徑是newproject\image\.. 如何設定呢?? 還有newproject這個檔案夾是並非固定在同一個位置的.. 感激不盡.....

Hi Allanx: 您提到目錄並非固定, 可以將程式寫成function, 將目錄當作參數使用... 小弟實在不懂BCB啦..以下範例為想像的空間 若有謬誤請多包含囉 < class="code"> void __fastcall TForm1::OpenImageFiles(AnsiString szDir) { TSearchRec SearchRec; int iAttr=faAnyFile; int iFound=0; if(!DirectoryExists(szDir)) { return; } if(szDir.SubString(szDir.Length(), 1)!="\\") { szDir=szDir "\\"; } iFound=FindFirst(szDir "*.jpg", iAttr, SearchRec); while(iFound==0) { Image1->Picture->LoadFromFile(szDir SearchRec.Name); iFound=FindNext(SearchRec); } FindClose(SearchRec); } 發表人 - yachanga 於 2004/05/19 23:48:59

yachanga您好:    感謝您熱心ㄉ回覆,不過小弟實在是太菜ㄌ,您上面poㄉcode中大部分函式我都沒看過,也不知道它們ㄉ意義是如何??可以解釋一下嘛!!                                        好頭痛阿!!

引言: yachanga您好: 感謝您熱心ㄉ回覆,不過小弟實在是太菜ㄌ,您上面poㄉcode中大部分函式我都沒看過,也不知道它們ㄉ意義是如何??可以解釋一下嘛!! 好頭痛阿!! < face="Verdana, Arial, Helvetica"> Hi Allanx兄: 快別這樣說, 等您逐漸進入程式殿堂後,您會發現美好的一面 class="code"> void __fastcall TForm1::OpenImageFiles(AnsiString szDir) { TSearchRec SearchRec; int iAttr=faAnyFile; int iFound=0; if(!DirectoryExists(szDir)) //假如找不到此目錄就離開 { return; } //若給的目錄最後一個字元不是"\", 就補上 if(szDir.SubString(szDir.Length(), 1)!="\\") { szDir=szDir "\\"; } //FindFirst 是抓取此目錄第一個檔案,抓到就回傳0. 參數列(檔案路徑,屬性有下列七種,檔案資訊格式) faReadOnl Read-only files faHidden Hidden files faSysFile System files faVolumeID $00000008 Volume ID files faDirectory $00000010 Directory files faArchive Archive files faAnyFile Any file iFound=FindFirst(szDir "*.jpg", iAttr, SearchRec); while(iFound==0) { //如果抓到此檔案則顯示此圖片 Image1->Picture->LoadFromFile(szDir SearchRec.Name); //找此目錄下一筆檔案 iFound=FindNext(SearchRec); } //關閉檔案 FindClose(SearchRec); } ~悠遊法國號~ 發表人 - taishyang 於 2004/05/21 00:22:21