Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 property AutoODBC : Boolean read FAutoODBC write SetAutoODBC;

 property StrictIntegrity : Boolean read FStrictIntegrity write SetStrictIntegrity;

end;

procedure Register;

implementation

function StrToBoolean(Value : string) : Boolean;

begin

 if (UpperCase(Value) = 'TRUE') or (UpperCase(Value) = 'ON') or (UpperCase(Value) = 'YES') or (UpperCase(Value) = '.T.' ) then Result := True

 else Result := False;

end;

function BooleanToStr(Value : Boolean) : String;

begin

 if Value then Result := 'TRUE'

 else Result := 'FALSE';

end;

procedure Register;

begin

 RegisterComponents('Data Access', [TBDEConfig]);

end;

procedure TBDEConfig.Init;

var

 h: hDBICur;

 pCfgDes: pCFGDesc;

 n, v : string;

begin

 Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,'\SYSTEM\INIT', h));

 GetMem(pCfgDes, sizeof(CFGDesc));

 try

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while (DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin

n := StrPas(pCfgDes^.szNodeName);

v := StrPas(pCfgDes^.szValue);

if n = 'LOCAL SHARE' then FLocalShare := StrToBoolean(v)

else if n = 'MINBUFSIZE' then FMinBufSize := StrToInt(v)

else if n = 'MAXBUFSIZE' then FMaxBufSize := StrToInt(v)

else if n = 'MAXFILEHANDLES' then FMaxFileHandles := StrToInt(v)

else if n = 'LANGDRIVER' then FSystemLangDriver := v

else if n = 'AUTO ODBC' then FAutoODBC := StrToBoolean(v)

else if n = 'DEFAULT DRIVER' then FDefaultDriver := v;

end;

if (h <> nil) then DbiCloseCursor(h);

Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent,'\DRIVERS\PARADOX\INIT', h));

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while (DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin

n := StrPas(pCfgDes^.szNodeName);

v := StrPas(pCfgDes^.szValue);

if n = 'NET DIR' then FNetFileDir := v

else if n = 'LANGDRIVER' then FParadoxLangDriver := v;

end;

if (h <> nil) then DbiCloseCursor(h);

Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent, '\DRIVERS\PARADOX\TABLE CREATE', h));

FillChar(pCfgDes^, sizeof(CFGDesc), #0);

while (DbiGetNextRecord(h, dbiWRITELOCK, pCfgDes, nil) = DBIERR_NONE) do begin

n := StrPas(pCfgDes^.szNodeName);

v := StrPas(pCfgDes^.szValue);

if n = 'LEVEL' then FTableLevel := v

else if n = 'BLOCK SIZE' then FBlockSize := StrToInt(v)

else if n = 'STRICTINTEGRITY' then FStrictIntegrity := StrToBoolean(v);

end;

 finally

FreeMem(pCfgDes, sizeof(CFGDesc));

if (h <> nil) then DbiCloseCursor(h);

 end;

end;

procedure TBDEConfig.SetLocalShare(Value : Boolean);

begin

 UpdateCfgFile('\SYSTEM\INIT', 'LOCAL SHARE', BooleanToStr(Value));

 FLocalShare := Value;