Runtime-Query an Designtime-Query binden ..Speicherproblem

[erich.wanker]

.. ich habs noch nicht geschafft ...



Ich hab z.B.:

Delphi-Quellcode:

my_temp_Query1 :TZQuery

...
TZQuery1   - Select wert1,wert2 from Tabelle1 
TZQuery2   - Select wert1,wert2 from Tabelle2 
TZQuery3   - Select wert1,wert2 from Tabelle3 
TZQuery4   - Select wert1,wert2 from Tabelle4 
TZQuery5   - Select wert1,wert2 from Tabelle5 
TZQuery6   - Select wert1,wert2 from Tabelle6 
TZQuery7   - Select wert1,wert2 from Tabelle7 
...

und eine Schleife...

Delphi-Quellcode:

while not TZQuery1.EOF do
begin
  if wert1 = x1 then my_temp_Query1:=TZQuery1;
  if wert1 = x2 then my_temp_Query1:=TZQuery2;
  if wert1 = x3 then my_temp_Query1:=TZQuery3;
  if wert1 = x4 then my_temp_Query1:=TZQuery4;
  if wert1 = x5 then my_temp_Query1:=TZQuery5;
  if wert1 = x6 then my_temp_Query1:=TZQuery6;

  my_temp_Query1.append irgendwas...
  my_temp_Query1.post
  my_temp_Query1:=nil;

 TZQuery1.next;

end;

Wenn das so ausgeführt wird, steigt die Speicherauslastung extrem an und wird nicht mehr freigegeben..

ich hab my_temp_Query schon created .. nicht created.. Refresh'ed .. free gesetzt .. ect..



hat jemand eine idee ?

vielen Dank

Erich

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]