ExtractFilePath(ParamStr(0)) für 4 Datenmodule anwenden

[dlenz]

Hallo Liebe Delphi-Gemeinde!

Mein Programm arbeitet mit 4 Datenmodulen und 4 DB-Grids. Es funktioniert soweit auch alles. Das Ding ist jetzt, wenn man das Programm auf einem anderen PC ausführt, dann muss die Turbo-DB - .tdbd - Datei wie bei meinem PC im gleichen Pfad liegen (E:\db\...), das tut Sie aber meistens auf einem anderen System nicht.

Bei einem einzigen Datenmodul hatt ich das bisher so gemacht:

Code:

procedure TForm1.FormCreate(Sender: TObject, Anzahl): integer;
 var dbfrm: string;

begin
 dbfrm := ExtractFilePath(ParamStr(0))+'db/db.tdbd';

FormCreate.TdbTable1.Active := False;
 try
  FormCreate.TdbTable1.DatabaseName := dbfrm;
  FormCreate.TdbTable1.TableName := 'pr';
  FormCreate.TdbTable1.Active := True;
 except
  MessageBeep(0);
  ShowMessage('Die Tabelle db.tdbd befindet' + #10#13 +'sich nicht im angegebenen Verzeichnis!')

 end

end;

jetzt ist mein Problem, dass ich ja 4 Datenmodule benutze. Jetzt hatte ich mir das mit meinem Freund, der FOR-Schleife, zu lösen und zwar ungefähr so:

Code:

procedure TForm1.FormCreate(Sender: TObject, Anzahl): integer;
 var dbfrm: string;
 var Anzahl: integer;
 var i: integer;
begin
 Anzahl:=4;

 for i:=1 to Anzahl do

 dbfrm := ExtractFilePath(ParamStr(0))+'db/db.tdbd';

FormCreate.TdbTable1.Active := False;
 try
  FormCreate.TdbTable1.DatabaseName := dbfrm;
  FormCreate.TdbTable1.TableName := 'pr';
  FormCreate.TdbTable1.Active := True;
 except
  MessageBeep(0);
  ShowMessage('Die Tabelle db.tdbd befindet' + #10#13 +'sich nicht im angegebenen Verzeichnis!')
 end

end;

jetzt sehe ich aber den Wald vor lauter Bäumen nicht mehr. Kann mir jemand helfen biddö... dangge.