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

 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;
end;

procedure TBDEConfig.SetMinBufSize(Value : Integer);
begin
UpdateCfgFile('\SYSTEM\INIT', 'MINBUFSIZE', IntToStr(Value));
 FMinBufSize := Value;
end;

procedure TBDEConfig.SetMaxBufSize(Value : Integer);
begin
 UpdateCfgFile('\SYSTEM\INIT', 'MAXBUFSIZE', IntToStr(Value));
 FMaxBufSize := Value;
end;

procedure TBDEConfig.SetSystemLangDriver(Value : String);
begin
 UpdateCfgFile('\SYSTEM\INIT', 'LANGDRIVER', Value);
 FSystemLangDriver := Value;
end;

procedure TBDEConfig.SetParadoxLangDriver(Value : String);
begin
 UpdateCfgFile('\DRIVERS\PARADOX\INIT', 'LANGDRIVER', Value);
 FParadoxLangDriver := Value;
end;

procedure TBDEConfig.SetMaxFileHandles(Value : Integer);
begin
 UpdateCfgFile('\SYSTEM\INIT', 'MAXFILEHANDLES', IntToStr(Value));
 FMaxFileHandles := Value;
end;

procedure TBDEConfig.SetNetFileDir(Value : String);
begin
 UpdateCfgFile('\DRIVERS\PARADOX\INIT', 'NET DIR', Value);
 FNetFileDir := Value;
end;

procedure TBDEConfig.SetTableLevel(Value : String);
begin
 UpdateCfgFile('\DRIVERS\PARADOX\TABLE CREATE', 'LEVEL', Value);
 FTableLevel := Value;
end;

procedure TBDEConfig.SetBlockSize(Value : Integer);
begin
 UpdateCfgFile('\DRIVERS\PARADOX\TABLE CREATE', 'BLOCK SIZE', IntToStr(Value));
 FBlockSize := Value;
end;

procedure TBDEConfig.SetStrictIntegrity(Value : Boolean);
begin
 UpdateCfgFile('\DRIVERS\PARADOX\TABLE CREATE', 'STRICTINTEGRITY', BooleanToStr(Value));
 FStrictIntegrity := Value;
end;

procedure TBDEConfig.SetDefaultDriver(Value : String);