delphi读取ini文件(sql配置文件)怎么写

Question

sql配置文件(cnn.ini)：
[server]
dataServer=pb1   
Database=greyclothsystem
User ID=sa
Password=richard

Answer 1

uses inifiles;--------------------
var
  ini: TIniFile;
  str1,str2....: string;
begin
  ini := TIniFile.Create('ini文件名');
  str1 := ini.ReadString('Server', 'dataServer', '');
  str2 := ini.ReadString('Server', 'Database', '');
  ...
  ini.Destory;  

Answer 2

var
  mode:string;
  filename:string;
  myinifile:Tinifile;
begin
  filename:=ExtractFilePath(Application.ExeName )+'cnn.ini';
  myinifile:=Tinifile.Create(filename);
  mode:=myinifile.readstring('Server', 'dataServer', '');
  ...
  myinifile.Destory;

Answer 3

楼上两位：请不要直接调用Destroy。应该调用Free。

Answer 4

uses inifiles;--------------------
var
  ini: TIniFile;
  str1,str2....: string;
begin
  try
    filename:='.\cnn.ini';
    myinifile:=Tinifile.Create(filename);
    str1 := ini.ReadString('Server', 'dataServer', '');
    str2 := ini.ReadString('Server', 'Database', '');
    ...
  finally
    myinifile.free;
end;