Ich lese aus einer Datei den Tabellennamen und die dazugehörigen daten ein und will diese eintragen.
Dazu setze ich den Tabellennamen anhand eines Strings den ich aus der Datei bekomme auf eine temporäre Tabelle und schreibe die Daten rein.
Dazu habe ich mir folgendes Konstrukt einfallen lassen, was mir aber dafür sehr aufwendig erscheint.
Bestimmt gibt es eine ganz einfache Lösung um den Tabellennamen zu setzen, dafür brauche ich Eure Hilfe.
In meinem DataModul DM sind alle Tabellen angelegt.
Delphi-Quellcode:
//******************************************************************************
//***************** Tabelle setzen anhand von String ***************************
//******************************************************************************
Procedure SetTbl(Tbl:
String);
Var
DB:TADOTable;
Ind: Byte;
i:Byte;
Const
ArrayTbl:
Array [0,38]
of String=('
Herst','
VerpEinh','
AE','
Spur','
System'........);
Begin
for i:= 0
to 38
do
if Tbl=ArrayTbl[i]
then Ind:=i;
case Ind
of
0:
begin
DB := DM.TBHerst;
DBGrid1.DataSource := DM.DSHerst;
end;
1:
begin
DB := DM.TBVerpEinh;
DBGrid1.DataSource := DM.DSVerpEinh;
end;
.....usw.