我有几个edit,里面有默认值,但是我想修改了之后点确定form关闭之后能保存修改,下次打开时就是修改之后的值!tks乐!
解决方案 »
- 如何知道bpl里面共有几个TForm
- 急!Delphi如何实现将“任意字符串”写入注册表reg_binary类型的数据中?给出详细解答的送100分!谢谢!
- delphi中如何导入并使用已编译的DLL。
- insert into问题
- 用IdHTTP1->Get下载文件,如何得知已经下载了多少字节??
- 如何删除有文件和子目录的目录?
- 请教一个解决方案
- 再次提问,关于主板信息的读取问题
- 费了老大的劲下载了acdsee4.0,却发现没有注册码不能使用,气杀我也
- DBGRILD问题请教
- 访问access 数据库时 执行 select xqbm,xqmc from t_xqbmb where substr(xqbm,1,2)='01'
- 送分题:这样的SQL语句怎么写?
再次show就行了。
TempStr := edit1.text;
var
f : TINIFile;
begin
f := TINIFile.Create('g:\Edit.ini');
Edit1.Text := f.ReadString('TEdit', Edit1.Name, '123');
Edit2.Text := f.ReadString('TEdit', Edit2.Name, '123');
Edit3.Text := f.ReadString('TEdit', Edit3.Name, '123');
f.Free;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
f : TINIFile;
begin
f := TINIFile.Create('g:\Edit.ini');
f.WriteString('TEdit', Edit1.Name, Edit1.Text);
f.WriteString('TEdit', Edit2.Name, Edit2.Text);
f.WriteString('TEdit', Edit3.Name, Edit3.Text);
f.Free;
end;