大家帮帮忙啊~(3分)

我通过一个buttonclick保存了一个文件名,然后想关掉程序后,重新打开程序,想在
formcreate生成的时候,判断这个文件是否存在,应该怎么写了???如果存在的话,就把
这个文件的内容导入一个listbox里面啊~大家帮帮我好吗?谢谢了~

呵呵 分有点少
FileExists(文件名)

没分也帮：在窗体中放一Listbox和一按钮，所有程序如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyStringList: TStringList;
FileName: String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
myfile: array [1..10] of String;
i: Integer;
begin
MyStringList := TStringList.Create;
for i := 1 to 10 do
begin
myfile := IntToStr(i);
MyStringList.Add(Myfile);
end;
MyStringList.SaveToFile(FileName + '123.dat');//123.dat是生成的文件
MyStringList.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FileName := GetCurrentDir();
if FileExists(FileName + '123.dat') then
begin
MyStringList := TStringList.Create;
MyStringList.LoadFromFile(FileName + '123.dat');
ListBox1.Items.Text := MyStringList.Text;
MyStringList.Free;
end;
end;

end.

楼上的了~哈~不要在意这些了~但是退出来后,fileexists(文件名) ,这个文件我是想利用
上次操作中保存的文件名啊??难道能用savedialog1.filename ??不成啊?这点我不清楚啊~
你好人做到底了~哈~

将文件名保存到ini 或注册表中

如:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
TempName : string;
MyIniFile : Tinifile;
begin
TempName := ExtractFilePath(application.ExeName) + 'MySoft.Ini';
if FileExists(TempName) then
begin
try
MyIniFile := TIniFile.Create(TempName);
MyIniFile.writeString('SOFT','filename ','打开的文件名'));
finally
MyIniFile.Free;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
var
TempName : string;
MyIniFile : Tinifile;
begin
TempName := ExtractFilePath(application.ExeName) + 'MySoft.Ini';
if FileExists(TempName) then
begin
try
MyIniFile := TIniFile.Create(TempName);
edit1.text := MyIniFile.readString('SOFT','filename ','');
finally
MyIniFile.Free;
end;
end;


//mysoft.ini的文件内容为：
[SOFT]
filename =

谢谢,楼上的各位老大

To 新手在线,-- 分太少了

接受答案了.