Zitat von
Leominora:
Leider besitzt das TDataset keine Eigenschaft
SQL,
was mich nun auch nicht weiterbringt...
Macht aber nix.
Du hast immer die Möglichkeit, mit dem
is Operator den Klassentyp abzufragen und dann zu casten:
Delphi-Quellcode:
var
ds : TDataset;
begin
if useoracle then
ds := DM1.OSQ
else
ds := DM1.DBQ_A;
....
if ds is TOraQuery then
TOraQuery(ds).SQL.Text := 'SELECT * FROM ....'
else if ds is TQuery then
TQuery(ds).SQL.Text := 'SELECT * FROM ....';
In vielen Fällen kann man mit den Methoden & Properties von TDataset auskommen.
Es bietet sich an, dies Codeblöcke in eigene Proceduren auszulagern und das Dataset als
Parameter zu übergeben.
Nur an wenigen Stellen muss man an die Methoden & Properties der spezialisierten
Query-Klasse heran. (siehe der Hinweis von generic)