TObject Zuweisung + Verwendung

[shmia]

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)