uses IniFiles; with TInifile.Create(Filename) do begin ServerIP:=ReadString('ServerInfo','ServerIP',''); SQLDBName:=ReadString('ServerInfo','SQLDBName',''); SQLUserName:=ReadString('ServerInfo','SQLUserID',''); SQLPwd:=ReadString('ServerInfo','SQLPwd',''); Destroy; end;
IniFiles;
with TInifile.Create(Filename) do
begin
ServerIP:=ReadString('ServerInfo','ServerIP','');
SQLDBName:=ReadString('ServerInfo','SQLDBName','');
SQLUserName:=ReadString('ServerInfo','SQLUserID','');
SQLPwd:=ReadString('ServerInfo','SQLPwd','');
Destroy;
end;