不使用API读取ini

flashrhx2007

于 2008-08-24 01:07:00 发布

阅读量380

点赞数

分类专栏： Delphi 文章标签： api system database path ini c

Delphi 专栏收录该内容

24 篇文章

订阅专栏

uses inifiles;
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
path,a,b,c,d: string;       
begin
path := ExtractFilePath(Application.Exename)+'server.INI';     获取当前路径ini
ini := TIniFile.Create(path);
a:= ini.ReadString('SYSTEM','ServerIP','');
b:= ini.ReadString('SYSTEM','DataBase','');
c:= ini.ReadString('SYSTEM','PWD','');
d:= ini.ReadString('SYSTEM','UserNamse','');
end;