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

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

begin

 UpdateCfgFile('\SYSTEM\INIT', 'DEFAULT DRIVER', Value);

 FDefaultDriver := Value;

end;

procedure TBDEConfig.SetAutoODBC(Value : Boolean);

begin

 UpdateCfgFile('\SYSTEM\INIT', 'AUTO ODBC', BooleanToStr(Value));

 FAutoODBC := Value;

end;

procedure TBDEConfig.UpdateCFGFile;

var

 h : hDbiCur;

 pCfgDes: pCFGDesc;

 pPath : array[0..127] of char;

begin

 StrPCopy(pPath,Path);

 Check(DbiOpenCfgInfoList(nil, dbiREADWRITE, cfgPersistent, pPath, h));

 GetMem(pCfgDes, sizeof(CFGDesc));

 try

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

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

   if StrPas(pCfgDes^.szNodeName) = item then begin

    StrPCopy(pCfgDes^.szValue, value);

    Check(DbiModifyRecord(h, pCfgDes, True));

   end;

  end;

 finally

  FreeMem(pCfgDes, sizeof(CFGDesc));

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

 end;

end;

constructor TBDEConfig.Create(AOwner: TComponent);

begin

 inherited Create(AOwner);

 Init;

end;

destructor TBDEConfig.Destroy;

begin

 inherited Destroy;

end;

end.

Eryk Bottomley

Default Cursor после завершения выполнения запросов

Тема: Возврат курсора по умолчанию после выполнения запроса

Почему мышиный курсор не возвращается обратно (не становится обычной стрелкой) после выполнения запроса?

При выполнении открытого запроса, Delphi изменяет для вас курсор, и произойти это может даже в середине события, как, например, при нажатии на кнопку. Приведенный ниже пример отобразит курсор в виде иконки песочных часов (SQL Hourglass Icon) после того, как вы закроете окно с сообщением. При этом мышь будет вести себя так, как будто находится в режиме "стрелки".

// Добавьте к обработчику события нажатия кнопки,

// использование запроса при этом не имеет значения

// Select * from Customer (в IBLocal)

with query1 do begin

 close;

 open;