wie kann man Table.TableName mit TQuery realisieren?

[eddy]

Hallo Schuster,

weil es Unterprogramme und Funktionen gibt, die eben genau das nicht wissen.
Hier ein Beispiel:

mit Datei öffnen wird einer TableX (TTable) ein Verzeichnis und Name zugewiesen.
Über eine DataSourceX (TDataSource) wird diese Tabelle an ein DBGridX (TDBGrid) gebunden.
Es kann jede beliebige Datei des entsprechend zulässigen Typs geöffnet werden, also ist der Dateinamen variabel. Mit nachfolgendem UP soll die Anzahl der Datensätze auf ein Panel gebracht werden und im Hint Verzeichnis und Name der tatsächlich geöffneten Datei angezeigt werden.

Code:

procedure UP_WrAnz(tab : TTable; pan : TPanel);
begin
  if tab.Active then begin
    pan.Caption := format('Anz=%d',[tab.RecordCount]);
    pan.Hint := tab.DatabaseName + tab.TableName;
  end
  else pan.Caption := '';
end;

Beim Ersatz von TTable durch TQuery ist diese Funktion also so nicht mehr verwendbar, weil es kein Query.TableName gibt.

mfg
eddy