Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
7.170 Beiträge
 
Delphi XE4 Professional
 
#2

AW: TObjectlist und der Seitenwechsel

  Alt 28. Mai 2019, 14:36
Hallo,
Delphi-Quellcode:
  for i := 0 to FPdfList.Count - 1 do
  begin
    FPdfList.Items[i].Free;
  end;
Count wird zu Beginn der Schleife in ein Prozessor-Register geschrieben,
bliebt also immer bei z.B. 5 (bei 5 Elementen).

Dreh die Schleife um.

Delphi-Quellcode:
  for i := FPdfList.Count - 1 downto 0 do
  begin
    FPdfList.Items[i].Free;
  end;
Ansonsten könnte auch FPdfList.OwnsObject gleich True sein.
Heiko
  Mit Zitat antworten Zitat