delphi 从Config.ini文件中读取配置信息

proceudre TForm1.ReadConfig;

Var

 mIni：TIniFile;

 filename,port:string;

begin

  filename:=ExtractFilePath(paramstr(0))+'Config.ini';

  mIni:= TIniFile.Creat(filename);

  try

     port:=mIni.ReadString('comport','Port','COM1');

  finally

     mIni.free;

  end;

end;

解析：

ExtractFilePath(paramstr(0)) 功能：返回完整文件名中的路径。

 

try      //尝试执行

except   //出错的时候执行，Except有特定的错误类型

end;

 

try      //尝试执行

finally   //无论如何都强制执行

end;

ReadString    从配置文件中读

Writestring    向配置文件中写