读写INI文件

一般INI文件
function GetIniString(Section, Key, FilePath: String): String;
var
  Default, ReturnValue: array [0..255] of char;
begin
  GetPrivateProfileString(PChar(Section), PChar(Key), Default, ReturnValue, 255, PChar(FilePath));
  Result := ReturnValue;
end;

procedure SetIniString(Section, Key, Value, FilePath: String);
begin
  WritePrivateProfileString(PChar(Section), PChar(Key), PChar(Value), PChar(FilePath));
end;
与应用程序同名的INI文件
function AppGetIniString(Section, Key: String): String;
var
  FilePath: String;
begin
  FilePath := ChangeFileExt(Application.ExeName, '.log');
  Result := GetIniString(Section, Key, FilePath);
end;

procedure AppSetIniString(Section, Key, Value: String);
var
  FilePath: String;
begin
  FilePath := ChangeFileExt(Application.ExeName, '.log');
  SetIniString(Section, Key, Value, FilePath);
end;

阅读更多
文章标签: ini string function
想对作者说点什么? 我来说一句

读写INI文件的源代码资源

2010年07月01日 62KB 下载

C# 读写ini文件

2009年04月23日 8KB 下载

c#读写INI文件方法

2010年11月30日 1KB 下载

在 Vb.Net 中读写 Ini 文件

2006年02月23日 7KB 下载

C#编写的ini文件读写

2015年04月09日 2KB 下载

VC读写ini文件VC读写ini文件

2010年11月26日 36KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭