小弟想連續讀取編號連續之jpeg檔案（如a000.jpg,a001.jpg,a002.jpg,...） 請高手們協助，謝謝！

引言: 小弟想連續讀取編號連續之jpeg檔案（如a000.jpg,a001.jpg,a002.jpg,...） 請高手們協助，謝謝！

可以用findfirst findnext等函式 請問您的目的為何? ～～～Delphi K.Top討論區站長～～～

小弟是想利用連續的圖檔做動態播放 您說的findfirst,findnext是不是不限於連續編號，而是接著找到最接近的檔名？ 謝謝！

danielj您好:   我不會Delphi但我用BCB的方式您參考看看

 
 AnsiString FileName;
 for(int i = 0 ; i < 10 ; i   )
  {
   FileName.printf("d",i);
   FileName="a" FileName ".jpg";  
   Image1->Picture->LoadFromFile(FileName);
  }

順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

procedure TForm1.Button1Click(Sender: TObject);
var sr:TSearchRec;
begin
  if FindFirst('c:\*.jpg',faAnyFile,sr)=0 then
  begin
     repeat
        image1.Picture.LoadFromFile('c:\' sr.Name);
        application.ProcessMessages;
        sleep(100);
     until findnext(sr)<>0;
  end;
end;

以上請參考 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

taishyang 您好: 我依據您的程式碼做測試.. 我都只會出現最後一張說.. 請問是我哪裡疏忽了嗎..?!

AnsiString FileName; for(int i = 0 ; i < 10 ; i ) { FileName.printf("d",i); FileName="a" FileName ".jpg"; Image1->Picture->LoadFromFile(FileName); Sleep(100); <-- 加了這個也是只出現最後一張 }

給你考一下我的程式 還在改當中...現在只能開啟1~n的檔名
因為我把它變成int相加後 000 就變不見了
我這程式需要用到OpenPictureDialog


[code cpp]
Form1->OpenPictureDialog1->Execute(); AnsiString FileName="000";
int a=0,b; for(int i = 0 ; i < 3; i
) { a=i; b=StrToInt(FileName) a; FileName=IntToStr(b); Form1->OpenPictureDialog1->FileName.printf("d",i); Form1->OpenPictureDialog1->FileName="a" FileName ".bmp"; Form1->Image1->Picture->LoadFromFile(Form1->OpenPictureDialog1->FileName); }
[/code]

------
恩...

編輯記錄