Datenbankalias - Pfad der DBs muss dynamisch sein.

[Memo]

Zitat von LuckyStrike4life:

Okay, hört sich sehr gut an - nur wie muss ich da ran gehen. Das würde mein Problem schon gänzlich lösen.

Wenn du bei deinem bissherigen Weg bleiben möchtest, also Pfadzuweisung ohne BDE-Alias mach ich es immer so:

Programm startet, nachsehen ob mein Ini-File existiert, tut es das nicht gehe ich vom ersten Start aus und lasse einen Opendialog anzeigen. Ist dann ein Pfad gewählt weise ich diesen zu. Wenn die Verbindung geklappt hat und nur dann wird der Pfad im Ini-File gespeichert um beim nächsten Start wieder zur Verfügung zu stehen.


Der Weg über einen existierenden BDE-Alias:

Code:

procedure TForm.aliaspfad(pfad : String);
var  AParams : TStringList;
begin
   AParams :=TStringList.Create;
   try
    AParams.Add('PATH=' + pfad);
    Session1.ConfigMode := cmAll;
    Session1.ModifyAlias('BDEALIASNAME',AParams);
    Session1.SaveConfigFile;
    Session1.Close;
   finally
    AParams.Free;
   end;