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:
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:
jetzt sehe ich aber den Wald vor lauter Bäumen nicht mehr. Kann mir jemand helfen biddö... dangge.
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;
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;
Comment