刘 刘素杰 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-01 #2 在退出时你可以把Edit控件的Text保存在数据库或一个ini文件中。 再次运行时，把此值从数据库或一个ini文件读取出来添进去。
O only you Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-01 #4 我建议用Registry,将值写在注册表中：用法如下： 在Uses中添如Registry procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var MyReg:TRegistry; begin MyReg:=TRegistry.Create; try MyReg.RootKey:=HKEY_LOCAL_MACHINE; MyReg.OpenKey('SoftWare/MyValue',TRUE); MyReg.WriteString('Edit1','asdf'); finally MyReg.Free; end; 正在HKEY_LOCAL_MACHINE/SOftware下建立一个项名称为MyValue,然后建立一个 字符串值，名字为Edit1，值为asdf。 在程序开始后用MyReg.ReadString从注册表中调入即可。
我建议用Registry,将值写在注册表中：用法如下： 在Uses中添如Registry procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var MyReg:TRegistry; begin MyReg:=TRegistry.Create; try MyReg.RootKey:=HKEY_LOCAL_MACHINE; MyReg.OpenKey('SoftWare/MyValue',TRUE); MyReg.WriteString('Edit1','asdf'); finally MyReg.Free; end; 正在HKEY_LOCAL_MACHINE/SOftware下建立一个项名称为MyValue,然后建立一个 字符串值，名字为Edit1，值为asdf。 在程序开始后用MyReg.ReadString从注册表中调入即可。
H Hjking Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #6 多数情况下我是用only you的方法，若嫌麻烦也可以把它存入一个*.txt文件中，退 出时存入需要时取出： var Edittxt:TextFile; EditStr:String; begin try AssignFile(Edittxt,'c:/tem/temp.txt'); Reset(Edittxt); {or ReWrite(Edittxt); //写入} Read(Edittxt,EditStr); {write(Edittxt,Edit1.Text)} Edit1.Text:=EditStr; finally CloseFile(Edittxt); end; end; 这样也非常方便。
多数情况下我是用only you的方法，若嫌麻烦也可以把它存入一个*.txt文件中，退 出时存入需要时取出： var Edittxt:TextFile; EditStr:String; begin try AssignFile(Edittxt,'c:/tem/temp.txt'); Reset(Edittxt); {or ReWrite(Edittxt); //写入} Read(Edittxt,EditStr); {write(Edittxt,Edit1.Text)} Edit1.Text:=EditStr; finally CloseFile(Edittxt); end; end; 这样也非常方便。
Y ypy Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #7 总之,你必要把上次的值保存在硬盘上（Registry、ini、txt、database。。。。） 下次运行时再读出来，不然怎么能记住上次的值呢？
房 房客 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #9 用tstringlist足够了 搜索一下 有的 INI的用法 var pc:tinifile; begin pc:=tinifile.create('email.ini'); pc.writestring(s,'Host',edit1.text); pc.writestring(s,'Email',edit2.text); pc.writestring(s,'Name',edit3.text); pc.writestring(s,'Port','110'); pc.free; end;
用tstringlist足够了 搜索一下 有的 INI的用法 var pc:tinifile; begin pc:=tinifile.create('email.ini'); pc.writestring(s,'Host',edit1.text); pc.writestring(s,'Email',edit2.text); pc.writestring(s,'Name',edit3.text); pc.writestring(s,'Port','110'); pc.free; end;
G goodpb1 Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-02 #10 可以用数据库，注册表，ini文件很多地方都可以的。
