inifile

最新推荐文章于 2024-07-11 19:48:03 发布

7年

最新推荐文章于 2024-07-11 19:48:03 发布

阅读量489

点赞数

CC 4.0 BY-SA版权

文章标签： server string integer ini user

本文链接：https://blog.youkuaiyun.com/zzflover/article/details/2337162

在uses中键入inifiles.

写INI文件代码:

procedure TForm1.Button1Click(Sender: TObject);
Var
FINI : TINIFile;
begin
FINi:=TINIFile.Create(ExtractFilePath(Paramstr(0))+'serverip.ini');
Try
    FINI.WriteString('server','ip', '192.168.1.11');
    FINI.WriteString('server','user', 'sa');
    FINI.WriteString('server','password', 'sa');
    FINI.WriteInteger('server', 'Int', 345);
    FINI.WriteBool('server', 'Bool', True);
Finally
    FINI.Destroy;
End;

end;

读INI文件代码:

procedure TForm1.Button2Click(Sender: TObject);
Var
FINI : TINIFile;
filename:string;
ip:string;
username:string;
password:string;
i:integer;
bool:boolean;
begin
filename:=ExtractFilePath(Paramstr (0))+'serverip.ini';
FINI := TINIFile.Create(filename);
With FINI do
    Try
     ip:=FINI.ReadString('server','ip','');
     username:=FINI.ReadString('server','username','');
     password:=FINI.ReadString('server','password','');
     i:=FINI.ReadInteger('server','INT',0);
     bool:=FINI.ReadBool('server','bool',true);
    Finally
      Destroy;
    End;
end;