在combobox控件中动态地加入一条记录后,怎样让其永久保存
解决方案 »
- 求调C++ api方法
- 交流一下COM+客户端发布问题.大家说一说各自遇到的问题,如何解决的.这样可以提高我们解决这类问题的能力.
- Twebbrowser浏览网页的一个多行的文本输入框时,无法回车?用IE浏览可以。
- ODBC+AD0+ADOQuery 怎样知道ADOQuery结果某个字段的数据类型
- 关于使用ImageEn控件保存图像的问题
- 用delphi写web应用程序使用什么技术比较好呢?
- 计算年龄
- Oracle + Delphi, DataSet.Insert,表中有触发器,Post以后DataSet值与数据库不同步
- 解码的问题
- 译2句,汉译英,只2句,帮帮我
- 哪位开发过OA(办公自动化)系统,请有经验的进来指教一下,没做过的也进来看看,UP有分!!!
- ADO存取问题
就是说,exe自己改自己?
combobox1.Items.SaveToFile(文件名);//保存 combobox1.Items.LoadFromFile(文件名);//保存
procedure addtoregtable(svalue:string);
var
regkey: tregistry;
begin
regkey := tregistry.create;
try
regkey.rootkey := HKEY_CURRENT_USER;
regkey.openkey('\software\userinfo', true);
regkey.writestring('userinfo', svalue);
regkey.closekey;
finally
regkey.free;
end;
regkey.writestring('userinfo', svalue);中的userinfo是键值(写成username等应该比较好区分吧,呵呵),不同于上一行中的,那是主键。
MyIniFile: TIniFile;
begin
MyIniFile := TIniFile.Create('myapp.ini');
with MyIniFile do
begin
if ReadBool('AutoLoad', 'FormProperties', False) = True then
begin
Visible := ReadBool('FormOptions', 'Visible', True);
Color := TColor(ReadInteger('FormOptions', 'Color', clWindow));
Caption := ReadString('FormOptions', 'Caption', 'Main');
end;
MyIniFile.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);var
MyIniFile: TIniFile;
begin
MyIniFile := TIniFile.Create('myapp.ini');
Memo1.Clear;
MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
MyIniFile.Free;
end;procedure TForm1.Button2Click(Sender: TObject);var
MyIniFile: TIniFile;
begin MyIniFile := TIniFile.Create('myapp.ini'); { if the entry wasn抰 there before, delete it now }
if Memo1.Lines.Values['Title1'] = '' then
MyIniFile.DeleteKey('Transfer', 'Title1')
{ otherwise, restore the old value }
else
MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
MyIniFile.Free;
end;
ses inifiles;
procedure TForm1.Button1Click(Sender: TObject);
var
userini:tinifile;
begin
userini := Tinifile.create('g:\Shuttime.ini') ;//创建
userini.WriteString ('Shut','Time',trim(edit1.text));//保存edit1里面的内容
userini.free ;
end;