Ich möchte bestimmte, immer wiederkehrende Datenbankfunktionen in eine Bibiliothek packen.
Dummerweise habe ich drei verschiedene
SQL-Objekttypen:
- tQuery
- tzQuery
- tzReadOnlyQuery
ich hatte mir das etwas so vorgestellt:
Delphi-Quellcode:
function tdbf.OpenSql(
var query1: tObject; tabelle, feld:
string; wert: integer): boolean;
begin
if query1.className = '
tzQuery'
then
with (query1
as tzQuery)
do begin
close;
sql.text := '
select * from ' + tabelle + '
where ' + feld + '
= ' + inttostr(wert);
open;
result :=
not (eof
and bof);
end;
if query1.className = '
tQuery'
then
with (query1
as tQuery)
do begin
...
end;
if query1.className = '
tzReadOnlyQuery'
then
with (query1
as tzReadOnlyQuery)
do begin
...
end;
end;
dummerweise funktioniert das nicht (Typenfehler wird gemeldet)
woran liegts
