Ich habe ein Datamodul mit vielen TIBQuery.
Nun möchte ich beim oncreate des Datamoduls alle Transactionen schliessen.
Dazu habe mir folgenden Code vorgestellt
Delphi-Quellcode:
for i := 0 to Datenmodul.ComponentCount - 1 do
begin
if Datenmodul.Components[i] is TIBQuery then
begin
AQuery := Datenmodul.Components[i] as TIBQuery;
if Aquery.Transaction.InTransaction then AQuery.Transaction.Commit;
end;
end;
end;
es wird fehlerfrei compiliert, aber gleich in der ersten Zeile mit dem ComponentCount bekomme ich
eine
AV Zugriffsverletzung.
Funktioniert das evtl gar nicht im Datamodul?