with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini') do
begin
WriteString('服务器','版本号',edit1.text);
Free;
end;
begin
WriteString('服务器','版本号',edit1.text);
Free;
end;
//OR//
with TInifile.Create(ExtractFilePath(Paramstr(0))+'设置.ini') do
begin
xxx:=readString('服务器','版本号',edit1.text);
Free;
end;
begin
xxx:=readString('服务器','版本号',edit1.text);
Free;
end;