Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
461 Beiträge
 
Delphi XE4 Professional
 
#6

Re: Runtime-Query an Designtime-Query binden ..Speicherprobl

  Alt 14. Jul 2009, 15:35
.. 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]
Erich Wanker - for life:=1971 to lebensende do begin ..
  Mit Zitat antworten Zitat