TObjectlist und der Seitenwechsel

**Delbor**

Hi zusammen

Um PDFs anzuzeigen, gehe ich erstmal so vor:

Delphi-Quellcode:

			procedure TOpenFileFrame.TVFilesExplorerMouseUp(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

  var AnItem: TTreeNode; ATextSelection :String;

begin

  AnItem := TVFilesExplorer.GetNodeAt(X, Y);

  if not AnItem.HasChildren then

  begin

    Self.FFileName := AnItem.Text;

    ATextSelection := PNameRec(AnItem.Data)^.RealName;

    if Assigned(OnTextSelectionEvent) then

      OnTextSelectionEvent(Sender,ATextSelection);

  end;

end;

Ich verwende die TFilesearcher-Komponente von DeddyH - den Pfad der im Treeview selektierten Datei gebe ich per Event weiter.

markieren

Delphi-Quellcode:

			procedure TFileSearchContainerFrame.DoSelectTextEvent(Sender: TObject; const ATextSelection: String);

begin

  FTextSelection := ATextSelection;

  Self.Edit2.Text := ATextSelection;

  if ExtractFileExt(ATextSelection) = AnsiLowerCase('.pdf') then

  begin

    HomeOfficerMainForm.RogersPdfFrame1.PdfFileName := ATextSelection;

    HomeOfficerMainForm.RogersPdfFrame1.PdfViewCreate2;

  end;

Das property RogersPdfFrame1.PdfFileName besitzt einen Setter:

markieren

Delphi-Quellcode:

			procedure TRogersPdfFrame.SetPdfFileName(Value: String);

begin

  if  FPdfFileName <> Value then

  begin

    FPdfFileName := Value;

    if FPdfList.Count > 0 then

      DeletePdfListObjects;

  end;

end;

In diesem Setter sollen nun die Items der Objectliste zerstört werden, wenn der Filename geändert wird.
Zu sagen ist noch: ich arbeite mit den PDF-Komponenten von Winsoft. Diese zeigen das PDF an(bzw. es kann darauf zugegriffen werden), wenn das Property Active true ist - Der Filename kann nur geändert werden, wenn Activ false ist.
DeletePdfListObjects schliesslich:

markieren

Delphi-Quellcode:

			procedure TRogersPdfFrame.DeletePdfListObjects;

var

  i: Integer;

begin

  for i := 0 to FPdfList.Count - 1 do

  begin

    FPdfList.Items[i].Free;

  end;

end;

Wenn ich nun starte, kann ich mir problemlos ein Pdf anzeigen. Die Probleme beginnen, wenn ich eine anderDatei auswähle. Wenn Count der Liste > 0 ist, wird obige Prozedur aufgerufen, löst aber bei Free eine Exception aus:

Zitat:

Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt HomeOfficerMainProject.exe ist eine Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroperation' aufgetreten.
---------------------------

Dass Free eine Exception irritiertmich doch sehr. Was mache ich falsch?

Gruss
Delbor

TObjectlist und der Seitenwechsel

TObjectlist und der Seitenwechsel

Forumregeln