LoadFromFile讀檔問題 |
尚未結案
|
Allanx
一般會員 ![]() ![]() 發表:13 回覆:20 積分:6 註冊:2003-10-06 發送簡訊給我 |
請問各位高手:
我有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)卻是有錯的.... 感激不盡..........
|
yachanga
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
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 |
Allanx
一般會員 ![]() ![]() 發表:13 回覆:20 積分:6 註冊:2003-10-06 發送簡訊給我 |
|
JerryKuo
版主 ![]() ![]() ![]() ![]() ![]() 發表:42 回覆:571 積分:322 註冊:2003-03-10 發送簡訊給我 |
|
yachanga
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
引言: yachanga 您好: 讀檔問題我已經解決ㄌ...感謝... 不過讀檔入徑問題..因為我不懂delphi轉BCB所以希望您能再指導一下... 我敘述完整一點.. 假設我的程式放在newproject的檔案夾裡... 裡面還有個image的檔案夾都是放圖檔用的.. 也就是說我想LoadFromFile的入徑是newproject\image\.. 如何設定呢?? 還有newproject這個檔案夾是並非固定在同一個位置的.. 感激不盡.....Hi Allanx: 您提到目錄並非固定, 可以將程式寫成function, 將目錄當作參數使用... 小弟實在不懂BCB啦..以下範例為想像的空間 若有謬誤請多包含囉 |
Allanx
一般會員 ![]() ![]() 發表:13 回覆:20 積分:6 註冊:2003-10-06 發送簡訊給我 |
|
yachanga
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
引言: yachanga您好: 感謝您熱心ㄉ回覆,不過小弟實在是太菜ㄌ,您上面poㄉcode中大部分函式我都沒看過,也不知道它們ㄉ意義是如何??可以解釋一下嘛!! 好頭痛阿!! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |