Tabelle durch String auswählen

[DeddyH]

Ungetestet:

Delphi-Quellcode:

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;

  DB := DM.FindComponent('TB' + ArrayTbl[Ind]);
  DBGrid1.DataSource := DM.FindComponent('DS' + ArrayTbl[Ind]);

[edit] Eigentlich ist das aber ziemlicher Blödsinn! Das müsste doch auch so gehen:

Delphi-Quellcode:

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;}

  DB := DM.FindComponent('TB' + Tbl);
  DBGrid1.DataSource := DM.FindComponent('DS' + Tbl);

[/edit]