Ini и Database

© 2003 Vladimir Khonin

В статье Ini и Database я рассказывал о достаточно сложном способе читать настройки для базы данных из ini файла. Но оказывается это можно делать сильно проще:

uses pFIBDatabase, classes, sysutils;

procedure xwINIpFIBDatabase(Name:string; db:TpFIBDatabase);
var
  s:TStringList;
begin
  if name=ExtractFileName(name) then
    name:=ExtractFilePath(paramstr(0))+name;
  if not FileExists(name) then exit;
  s:=TStringList.Create;
  try
    s.LoadFromFile(name);
    if s.Values['Base']<>'' then
      DB.DBName:=s.Values['Base'];
  finally
    s.Free;
  end;
end;

И вызов этой процедуры производится из обработчика события OnLogin:

procedure TForm1.pFIBDatabase1Login(Database: TFIBDatabase;
  LoginParams: TStrings; var DoConnect: Boolean);
begin
  xwINIpFIBDatabase('test.ini',pFIBDatabase1);
end;

Всё! В случае отсутствия файла ini или значения параметра Base берутся данные по умолчанию – значения установленные как свойство компонента.

PS: Нормальные герои всегда идут в обход...

Copyright© 2003 Vladimir Khonin  Специально для Delphi Plus