delphi当单机按钮是自动生成一个配置文件用来保存edit中的值，下次进入程序就自动读取配置文件

答案：procedure TForm1.Button9Click(Sender: TObject);
var
  inifile:TIniFile;
begin
   try
     //这里最好添加一个判断，配置文件是否已存在 if (not FileExist(astr))
     inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'dblinkini.ini');
     //else inifile :=TIniFile.open(ExtractFilePath(Application.ExeName)+'dblinkini.ini');
     inifile.WriteString('txtpath','txtpath',Edit3.Text);
   finally
     inifile.Free;
   end;
end; 

procedure TForm1.……;//要不直接写在显示事件中，要不就子函数，然后显示时调用该函数
var
  inifile:TIniFile;
begin
   try
      inifile :=TIniFile.open(ExtractFilePath(Application.ExeName)+'dblinkini.ini');
    Edit3.Text := inifile.ReadString('txtpath','txtpath');
   finally
     inifile.Free;
   end;
end; 

读配置文件的函数格式记不大清楚了，可以使用”alt+上“ 进去该类型的文件里，具体看看

其他：刚好有个现成的例子。你修改下就可以了
procedure TForm1.Button9Click(Sender: TObject);
var
  inifile:TIniFile;
begin
   OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
   opendialog1.filter:='文本文件(*.txt)|*.txt';
   OpenDialog1.Execute;
   Edit3.Text :=OpenDialog1.FileName;
   showdata(Edit3.Text);
   try
     inifile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'dblinkini.ini');
     inifile.WriteString('txtpath','txtpath',Edit3.Text);
   finally
     inifile.Free;
   end;
end; 百度一下，很简单的

上一个：您好！向您请教一个问题：我在delphi 7中运行一个程序，提示：file not found 'EditNew.dcu'
下一个：JSP语言做的程序求最后一句语法。计算方法就是上面输入的数字乘以区间里的百分数