68 lines
2.0 KiB
ObjectPascal
68 lines
2.0 KiB
ObjectPascal
unit U_iniFile;
|
|
|
|
interface
|
|
uses
|
|
IniFiles,SysUtils,windows,Forms;
|
|
var
|
|
Filename:string; //文件名
|
|
inifstr1:string;
|
|
inifstr2:string;
|
|
inifstr3:string;
|
|
inifstr4:string;
|
|
Function IsINIFile():Boolean; //判断InI配置文件是否存在
|
|
|
|
procedure ReadINIFile();
|
|
// procedure WriteINIFile();
|
|
implementation
|
|
uses U_PublicStr,U_PublicDllFunction;
|
|
//////////////////////////////////////////////////////////////////
|
|
//读取ini文件设置参数
|
|
//参数：
|
|
////////////////////////////////////////////////////////////////////
|
|
procedure ReadINIFile();
|
|
var
|
|
fIniFile:Tinifile; //配置文件名
|
|
begin
|
|
FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
|
|
fIniFile:=Tinifile.create(FileName);
|
|
inifstr1:=fIniFile.ReadString('SERVER', 'X1', '');
|
|
inifstr2:=fIniFile.ReadString('SERVER', 'X2', '');
|
|
inifstr3:=fIniFile.ReadString('SERVER', 'X3', '');
|
|
inifstr4:=fIniFile.ReadString('SERVER', 'X4', '');
|
|
inifstr1:=trim(GetDecString(inifstr1));
|
|
inifstr2:=trim(GetDecString(inifstr2));
|
|
inifstr3:=trim(GetDecString(inifstr3));
|
|
inifstr4:=trim(GetDecString(inifstr4));
|
|
fIniFile.Free;
|
|
end;
|
|
//////////////////////////////////////////////////////////////////
|
|
//写设置信息到INI文件
|
|
//参数
|
|
//////////////////////////////////////////////////////////////////
|
|
{procedure WriteINIFile();
|
|
var
|
|
fIniFile:Tinifile; //配置文件名
|
|
begin
|
|
//FileName:=ExtractFilePath(Application.ExeName)+'DATACLIENT.DBG';
|
|
fIniFile:=Tinifile.create(FilePath);
|
|
fIniFile.ReadString('SERVER', 'SERVER',trim(Server1));
|
|
fIniFile.ReadString('SERVER', 'DTBASE',trim(DTBase1));
|
|
fIniFile.ReadString('SERVER', 'USER',trim(User1));
|
|
fIniFile.ReadString('SERVER', 'PASSWORD',trim(Pswd1));
|
|
fIniFile.Free;
|
|
end;
|
|
}
|
|
//////////////////////////////////////////////////////////////////
|
|
//判断InI文件是否存在
|
|
//////////////////////////////////////////////////////////////////
|
|
Function IsINIFile():Boolean;
|
|
begin
|
|
FileName:=ExtractFilePath(Application.ExeName)+'RTSOFTSET.LIC';
|
|
if FileExists(FileName) then
|
|
Result:=true
|
|
else
|
|
Result:=false;
|
|
end;
|
|
|
|
end.
|