読み込みファイルがなければ終了するには？

解決

源 2004-06-06 20:05:33 No: 9320

初心者の源ともうします。
『xxx.txt』ファイルの４行目をEdit1に表示したいのですが、
もし『xxx.txt』がなければ、終了したいのですが
var
    fn:string;
    FileList:TStringList;
begin
    FileList := TStringList.Create;
    try
    fn:='c:\windows\xxx.txt';
    FileList.LoadFromFile(fn);
    Edit1.Text:=FileList[3];

    finally
        FileList.Free;
    end;
end;

『xxx.txt』ファイルの４行目をEdit1に表示しました。
IF文で書き込むと思うのですがどのようにしたらよいのかわかりません。
知恵をかしてください。

通りすがり 2004-06-06 20:24:39 No: 9321

// ファイルが無いとき
if not FileExists(fn) then

源 2004-06-06 21:17:37 No: 9322

通りすがりさん
有難う御座いました。
解決しました。