TObjectlist und der Seitenwechsel

[Delbor]

Hi zusammen

Zitat von hoika:

Hallo,
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;

Ich habe das jetzt mal etwas anders gelöst - irgendwo hab ich mal mitgekriegt, dass der Compiler gelegentlich zwecks Optimierung selbst aus einem "downTo" ein "To" macht, weshalb ich, um Einfluss auf den Zähler nehmen zu können, while verwende:

Delphi-Quellcode:

procedure TRogersPdfFrame.DeletePdfListObjects;
var
  i: Integer;
begin
  i := 0;
  while i < FPdfList.Count do
  begin
    if FPdfList.Items[i].Active then
    begin
      FPdfList.Items[i].Active := False;
      FPdfList.Items[i].Free;
    end;
    inc(i);
  end;
end;

Die erste Zeile innerhalb der inneren Anweisung ist neu. Da gewisse Zuweisungen weder an TPDF noch an TPdfView gemacht werden können, hielt ich es für möglich, dass sich TPdfView auch nicht zerstören lässt, während sie eine PDF-Seite anzeigt.
Und das soweit zu funktionieren scheint...
Das neue PDF-Dokument wird mir zwar nicht angezeigt, aber das ist ja kein Wunder:

Delphi-Quellcode:

procedure TRogersPdfFrame.PdfViewCreate2;
  var i, j, iCount, iLeft, iHeight,
      iTop, iWidth : Integer;
begin
  if FPdfList.Count = 0 then
  begin
    i := 0;
    j := 1;
    Pdf1.FileName := Self.FPdfFileName;
    Pdf1.Active := true;
    ....

Gruss
Delbor