Question

delphi中打开一个窗口后，在这个窗口中edit输入字，然后关闭窗口，下次再打开时，edit上的字还在！！

我就是想让上面的字消失，例如我那个edit是修改密码的，可是再次打开时上面的密码还在！！
难道一定得用代码，edit。text=''完成吗？如果我的窗口有很多edit，不是很麻烦！？？

Answer 1

动态创建窗体

Answer 2

用ini 文件保存就行了，具体参照以下例子：
源代码如下。创建了一个myini.ini文件，有一个名为newini的小节，有3个关键字“用户名称”“已运行时间”“是否正式用户”。运行效果，可以在edit1里边填入“用户名称”；edit2显示时间，不可以改变数值；checkbox1通过打勾，保存时间和“用户名称”进入myini.ini文件里边，重新打开应用程序时，显示的时保存下来的时间和填入的“用户名称”，如果在myini.ini文件里边修改，效果和在程序运行过程中修改时一样的。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,inifiles, StdCtrls, ExtCtrls;
{调用inifiles 类}

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Timer1: TTimer;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
myinifile:TInifile;
{定义一个类的实例}
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var
filename:string;

begin
{下面两行的书写形式，在应用程序的路径下创建ini文件}
filename:=ExtractFilePath(paramstr(0))+'myini.ini';
myinifile:=TInifile.Create(filename);
edit1.Text:=myinifile.ReadString('newini','用户名称','胡长浩');
edit2.text:=inttostr(myinifile.readinteger
('newini','已运行时间',0));
checkbox1.Checked:=myinifile.readbool
('newini','是否正式用户',False);
{newini是小节名字，中间字段是关键字的名字，第三个字段是缺省值。当myini.ini不存在时，上面的语句自动创建这个文件，上边几行里的引号是单引号}
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
myinifile.writestring('newini','用户名称',edit1.Text);
myinifile.writeinteger('newini','已运行时间',
strtoint(edit2.text));
myinifile.writebool('newini','是否正式用户',
checkbox1.Checked);
myinifile.Destroy;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit2.Text:=inttostr(strtoint(edit2.text)+1);
end;
end.

资料引用:http://www.knowsky.com/335632.html