Funktionsbibiliothek - Objekttypunabhängig machen

[Flocke]

Classname kann ja auch anders groß-/kleingeschrieben sein.
Probier's so:

Delphi-Quellcode:

function tdbf.OpenSql(var query1: tObject; tabelle, feld: string; wert: integer): boolean;
begin
  if query1 is tzQuery then
  with tzQuery(query1) do begin
    close;
    sql.text := 'select * from ' + tabelle + ' where ' + feld + ' = ' + inttostr(wert);
    open;
    result := not (eof and bof);
  end;
  if query1 is tQuery then
  with tQuery(query1) do begin
    ...
  end;
  if query1 is tzReadOnlyQuery then
  with tzReadOnlyQuery(query1) do begin
    ...
  end;
end;

[Nachtrag]

WO WAR DER ROTE KASTEN???

TDataSet wird die Eigenschaft 'Sql' nicht haben. Gibt's vielleicht eine andere gemeinsame Basisklasse? Stammt tzReadOnlyQuery ggf. von tzQuery ab (dann kannst du dir den dritten Teil sparen)?