TableName aus DataSource ermitteln

[eddy]

Hallo Leute!

Ich verwende drei Elemente:

dbg : TDBGrid
DS : TDataSource
Tab : TTable

Mit einem Click auf dbg kann ich mit

Code:

text := lower(dbg.DataSource.DataSet.Name);

Tab.Name ermitteln.

Ich suche aber nach einer Möglichkeit Tab.TableName zu erhalten, um in Abhängigkeit von dbg und Tab.TableName die jeweilige Spaltenaufteilung von dgb zu speichern.

Also brauche ich eine Funktion in der Art:

text := dbg.DataSource.DataSet.TableName

Weiß jemand, wie ich das ermitteln kann?

mfg
eddy

[MrSpock]

Hallo eddy,

das sollte wie folgt gehen:

Delphi-Quellcode:

if dbg.DataSource.DataSet is TTable then
  theName := (dbg.DataSource.DataSet as TTable).TableName
else
  theName := 'ist keine Tabelle';

[eddy]

Hallo MrSpock,

vielen Dank für die superschnelle Hilfe, Problem gelöst.

Ich war schon kurz davor, in die Tischplatte zu beißen.

mfg
eddy

[MrSpock]

Hallo eddy,

Zitat:

Ich war schon kurz davor, in die Tischplatte zu beißen.

Mensch, mach keinen Sch... . Der Zahnersatz soll doch eventuell aus dem Leistungskatalog der Krankenkassen gestrichen werden.