Funktionsbibiliothek - Objekttypunabhängig machen

[Flocke]

Zitat von Ulf346C:

...bloß zwischen IDE und Laufzeit werden die class-Namen anders geschrieben

Als wenn ich das nicht geschrieben hätte
Mache den Test besser mit is und danach einfach einen festen Cast:

Delphi-Quellcode:

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

//Edit: Semikola korrigiert