1.檢查數個檔案,只要缺一,就結束程式 我知道用 FileExist 檢查, if not FileExist(F1) then begin xxxxxx; yyyyyy; end; if not FileExist(F2) then begin xxxxxx; yyyyyy; end; 不知道有沒有比較簡潔的寫法. 2.我是在 FormCreate 中檢查的,缺檔案就結束程式, 在FormCreate 中很像不能用 Form.Close 的方式結束程式, 我改用 Application.destory, 只是不知道有沒有不良影響, 看游標變成沙漏狀一下子.

1.

begin
  if (not FileExist(F1)) or (not FileExist(F2)) then 
  begin 
    xxxxxx;
    yyyyyy;
  end;
end;

2.可用 Application.Terminate; -- Everything I say is a lie.

1.

const
 fnAry : array[0..2] of String=('filename1.xxx','filename2.xxx','filename3.xxx');
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  for i := 0 to 2 do
   if not FileExists(fnAry[i]) then
   begin
    xxxxxx;
    yyyyyy;
    Application.Terminate;
   end;
end;

2.如果想用Close結束程式，可將初始化檢查的程式碼由FormCreate是件移到FormShow 混心雜欲 棄修身~唉

------
唉~

謝謝 hagar 及 speedup, 不過 speedup用FileExists(fnAry[i]),我比較適用,因為很多個檔案, 不只兩個,不好意思沒說清楚. 所以分數給 speedup. 謝謝兩位大大.