Datenmodul alle Queries in einem schliessen

[BerndS]

Es würde ja schon reichen, Datenmodul wegzulassen. Self ist ja das Datenmodul, welches der Variable Datenmodul nach dem Create zugewiesen wird.

Delphi-Quellcode:

for i := 0 to ComponentCount - 1 do
begin
  if Components[i] is TIBQuery then
  begin
    AQuery := TIBQuery(Components[i]);
    if Aquery.Transaction.InTransaction then 
      AQuery.Transaction.Commit;
  end;
end;