Das ganze sieht etwa so aus:
Delphi-Quellcode:
procedure SetStatement;
procedure DoAdd;
begin
//Hier kann ich nicht darauf zugreifen
end;
begin
with TZQuery.Create(
nil)
do
try
Connection := ZConnection;
sql.Text:=DoAdd;
finally
Free;
end;
end;
nicht unbedingt sauber aber da ich in der Ausbildung bin sind solche Dinge ein gute Übung.