80 lines
2.5 KiB
ObjectPascal
80 lines
2.5 KiB
ObjectPascal
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
// Դ<><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD>U_iniParam.pas
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾ <20><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>
|
|||
|
|
// ϵͳ<CFB5><CDB3><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>ͨӡȾERP<52><50><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҵϵͳ
|
|||
|
|
// ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD>ģ<EFBFBD><C4A3>ini<6E><69><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD>ߣ<EFBFBD><DFA3>ٻ<EFBFBD>ƽ
|
|||
|
|
// <20><><EFBFBD>ˣ<EFBFBD>
|
|||
|
|
////////////////////////////////////////////////////////////////////////////////
|
|||
|
|
unit U_iniParam;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
uses
|
|||
|
|
IniFiles,SysUtils;
|
|||
|
|
var
|
|||
|
|
Filename:string; //<2F>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
iParam2:integer;
|
|||
|
|
gIsyxMoneyFck:Boolean; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
gIsyxfck:Boolean; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
gKcWarning:Boolean; //<2F><><EFBFBD>汨<EFBFBD><E6B1A8>
|
|||
|
|
bParam2:Boolean;
|
|||
|
|
gSxWhcode:string; //ɴ<>ֿ߲<DFB2><D6BF><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
IsSxMaterialzd:Boolean;
|
|||
|
|
IsCrkMoney:boolean;
|
|||
|
|
MaterialNozf:string;
|
|||
|
|
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))+'SaXian.INI';
|
|||
|
|
gSxWhcode:='SX01';
|
|||
|
|
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
IsSxMaterialzd:=programIni.ReadBool('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>',false);
|
|||
|
|
MaterialNozf:=programIni.ReadString('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>','');
|
|||
|
|
IsCrkMoney:=programIni.ReadBool('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>н<EFBFBD><D0BD><EFBFBD>',true);
|
|||
|
|
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))+'SaXian.INI';
|
|||
|
|
gSxWhcode:='SX01';
|
|||
|
|
IsSxMaterialzd:=false;
|
|||
|
|
MaterialNozf:='';
|
|||
|
|
IsCrkMoney:=true;
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
programIni.WriteString('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>',gSxWhcode);
|
|||
|
|
programIni.WriteBool('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>',IsSxMaterialzd);
|
|||
|
|
programIni.WriteString('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD>',MaterialNozf);
|
|||
|
|
programIni.WriteBool('<27>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD>','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>н<EFBFBD><D0BD><EFBFBD>',IsCrkMoney);
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
//<2F>ж<EFBFBD>InI<6E>ļ<EFBFBD><C4BC>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
//////////////////////////////////////////////////////////////////
|
|||
|
|
Function IsINIFile():Boolean;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'SaXian.INI';
|
|||
|
|
if FileExists(FileName) then
|
|||
|
|
Result:=true
|
|||
|
|
else
|
|||
|
|
Result:=false;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|