1.ini读写操作
一、使用 TIniFile
implementation
var
ini:tinifile;
path:string; {ini文件路径}
section,key:string;{表示ini文件的小节、关键字}
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
path:=ChangeFileExt(ParamStr(0),'ini'); {ChangeFileExt改文件后缀扩展名
paramstr(0):可执行程序完全路径d:\delphi\project1.exe
或ExtractFilePath(ParamStr(0))+'Config.ini')}
ini:=TiniFile.Create(path);
end;
end.
好的代码像粥一样,都是用时间熬出来的