ini 文件编程(50分)

  • 主题发起人 主题发起人 incool2
  • 开始时间 开始时间
I

incool2

Unregistered / Unconfirmed
GUEST, unregistred user!
1>我想把我的软件(Form1.Caption 为 incool数据库查询系统)的版本信息(例如:Version1.0 )保存在一个
ini 文件里(方便更新),在程序运行时读入并在 Form1 的标题栏显示:incool数据库查询系统 Version1.0
2>同样,我也想把我的软件的升级网址(例如:http://www.163.com)保存在这个 ini 文件里,但可以在程序的
一个 Edit 中修改.当然,修改后要保存在这个 ini 文件中
3>我要我的程序每一次启动都,自动把这个 ini 文件的所有属性去掉
 
GetPrivateProfileString...
 
详细点好吗?我好菜
 
从INI文件里面获得字符串
GetPrivateProfileString(p_AppName, 'UserNo', '', p_String, 1000, p_FileName);
向INI文件中写字符串。
WritePrivateProfileString(p_AppName, 'description_Count', p_String, p_FileName);
类似属性有读取整型等。。
也可以使用uses INIFile,然后编程。
 
简单的:
procedure TMainForm.SaveSettings;
var
s: TStringList;
begin
s := TStringList.Create;
s.Add(ServerIpEdt.Text);
s.Add(TargetFileEdt.Text);
s.Add(LocalPathEdt.Text);
s.SaveToFile(ChangeFileExt(Application.ExeName, '.ini'));
s.Free;
end;

procedure TMainForm.LoadSettings;
var
s: TStringList;
begin
s := TStringList.Create;
s.LoadFromFile(ChangeFileExt(Application.ExeName, '.ini'));
ServerIpEdt.Text := s[0];
TargetFileEdt.Text := s[1];
LocalPathEdt.Text := s[2];
s.Free;
end;
 
我这个方法比较简单,没有涉及到 ini 文件的格式,其实就是假的 ini :)
如果一定要用标准的 ini,可以用 TIniFile(uses IniFiles)
 
多人接受答案了。
 
后退
顶部