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