59 lines
1.6 KiB
ObjectPascal
59 lines
1.6 KiB
ObjectPascal
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F><><EFBFBD>ø<EFBFBD><C3B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2><EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
unit U_iniParam;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
IniFiles,SysUtils;
|
|||
|
|
var
|
|||
|
|
Filename:string; //<2F>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
iParam2:integer;
|
|||
|
|
bParam1:Boolean;
|
|||
|
|
bParam2:Boolean;
|
|||
|
|
YPCodeType:string; //<2F><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Function IsINIFile():Boolean; //<2F>ж<EFBFBD>InI<6E><49><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
procedure WriteINIFile();
|
|||
|
|
implementation
|
|||
|
|
///////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F><>ȡini<6E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////
|
|||
|
|
procedure ReadINIFile();
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
YPCodeType:=programIni.ReadString('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','');
|
|||
|
|
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//д<><D0B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>INI<4E>ļ<EFBFBD>
|
|||
|
|
//<2F><><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
procedure WriteINIFile();
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
programIni.WriteString('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',YPCodeType);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function IsINIFile():Boolean;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'YPFile.INI';
|
|||
|
|
if FileExists(FileName) then
|
|||
|
|
Result:=true
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|