Verbindung zur DB bei Programmstart

[mkinzler]

Ich gehe immer ähnlich vor. Ich verwende aber eine TDataModule.Klasse und mache alles im datModuleCreate-Event.

Delphi-Quellcode:

procedure TDaten.DataModuleCreate(Sender: TObject);
var
   ini: TIniFile;
   adress, path, dbfile, user, pass: string;
begin
    ini := TIniFile.Create('.\aktien.ini');
    try
      adress := ini.ReadString('server', 'adress', '127.0.0.1');
      path := ini.ReadString('server', 'path', '');
      dbfile := ini.ReadString('server', 'db', 'Daten.fdb');
      user := ini.ReadString('server', 'user', 'SYSDBA');
      pass := Daten.Lb3DES1.DecryptString(  ini.ReadString('server', 'pass', Daten.Lb3DES1.EncryptString('masterkey')));
    finally
      ini.Free;
    end;