59 lines
1.6 KiB
ObjectPascal
59 lines
1.6 KiB
ObjectPascal
////////////////////////////////////////////////////////////////////////////////
|
|
//配置个别机子参数
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
unit U_iniParam;
|
|
|
|
interface
|
|
uses
|
|
IniFiles,SysUtils;
|
|
var
|
|
Filename:string; //文件名
|
|
iParam2:integer;
|
|
bParam1:Boolean;
|
|
bParam2:Boolean;
|
|
YPCodeType:string; //样品编号类型
|
|
Function IsINIFile():Boolean; //判断InI配置文件是否存在
|
|
procedure ReadINIFile();
|
|
procedure WriteINIFile();
|
|
implementation
|
|
///////////////////////////////////////////////////////////////////
|
|
//读取ini文件设置参数
|
|
//参数：
|
|
////////////////////////////////////////////////////////////////////
|
|
procedure ReadINIFile();
|
|
var
|
|
programIni:Tinifile; //配置文件名
|
|
begin
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|
programIni:=Tinifile.create(FileName);
|
|
YPCodeType:=programIni.ReadString('样品编号','编号类型','');
|
|
|
|
programIni.Free;
|
|
end;
|
|
//////////////////////////////////////////////////////////////////
|
|
//写设置信息到INI文件
|
|
//参数
|
|
//////////////////////////////////////////////////////////////////
|
|
procedure WriteINIFile();
|
|
var
|
|
programIni:Tinifile; //配置文件名
|
|
begin
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|
programIni:=Tinifile.create(FileName);
|
|
programIni.WriteString('样品编号','编号类型',YPCodeType);
|
|
programIni.Free;
|
|
end;
|
|
//////////////////////////////////////////////////////////////////
|
|
//判断InI文件是否存在
|
|
//////////////////////////////////////////////////////////////////
|
|
Function IsINIFile():Boolean;
|
|
begin
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|
if FileExists(FileName) then
|
|
Result:=true
|
|
else
|
|
Result:=false;
|
|
end;
|
|
|
|
end.
|