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