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)?