【delphi开源代码栏目提醒】:本文主要为网学会员提供CommINI.pas,希望对需要CommINI.pas网友有所帮助,学习一下!
unit CommINI;
interface
uses
IniFiles, Dialogs;
procedure WriteIni(FileName,Main,Key,Values :String);StdCall;//写Ini文件
function ReadIni(FileName,Main,Key :String):String;StdCall; //读Ini文件
procedure DeleteIni(FileName,Main,Key:String);StdCall; //删除Ini文件
implementation
procedure WriteIni(FileName,Main,Key,Values :String);
var
WIni :TINIFile;
begin
WIni :=TINIFile.Create(FileName);
try
WIni.WriteString(Main,Key,Values);
except
ShowMessage('写入配置文件错误!');
end;
WIni.Destroy;
end;
function ReadIni(FileName,Main,Key :String):String;
var
RIni :TINIFile;
begin
RIni :=TINIFile.Create(FileName);
try
Result :=RIni.ReadString(Main,Key,'');
except
ShowMessage('读取配置文件出错!');
end;
RIni.Destroy;
end;
procedure DeleteIni(FileName,Main,Key:String);
var
DIni :TINIFile;
begin
DIni :=TINIFile.Create(FileName);
try
DIni.DeleteKey(Main,Key);
except
ShowMessage('删除配置文件错误!');
end;
DIni.Destroy;
end;
end.
上一篇:
DOG.cpp
下一篇:
经济可持续发展论文:将可持续发展内生化的新经济发展方式