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 向配置文件中写