Hi zusammen

Soeben habe ich meinem Projekt eine weitere Listbox hinzugefügt, um darauf Ausgaben über den Codeverlauf zu machen. Delphis Reaktion:

Zitat:

---------------------------
Im Projekt PDFOfficerProject.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x0063f592: read of address 0x000002a0' aufgetreten.
---------------------------

Klar, das angesprochene Objekt, die soeben aus der Toolbox eingefüge Listbox2, ist nil. Deren Parents sind schon länger Teil des Projektes. Tönt so, als hätte Delphi ein Burnout...
Der Code, in der die AV ausgelöst wird:

zusammenfalten · markieren

Delphi-Quellcode:

begin
  Node := TVPathExplorer.Items.AddChild(ParentNode, aCaption);
  PDFOfficerMain.ListBox1.Items.Add('aRealName := ' + aRealName); //Listbox1 funkttioniert schon länger
  PDFOfficerMain.ListBox1.Items.Add('aCaption := ' + aCaption);
  BCaption := ExtractFileExt(aCaption);
  PDFOfficerMain.ListBox1.Items.Add('ExtractFileExt := '+ BCaption);
  Application.ProcessMessages;
  if CanGetChildren then
  begin
    FDefaultdraw := False;
    FIsDirectory := True;
    Node.ImageIndex := 1;
    Node.SelectedIndex := 1;
    (* Dummy-Knoten anlegen *)
    TVPathExplorer.Items.AddChild(Node, 'dummy');
    PDFOfficerMain.ListBox2.Items.Add('procedure TPathFinderFrame.AddNewNode'); /Listbox2 ist nil
    PDFOfficerMain.ListBox2.Items.Add('CanGetChildren := True');
    PDFOfficerMain.ListBox2.Items.Add('');
  end

Beide Listboxen wurden aus dem OI heraus gesetzt. Was ist da los?

Gruss
Delbor

Hi zusammen

Aktionen von mir:

• Löschen der ominösen Listbox2
• Delphi neu starten
• Effekt := 0

Weiter:

• Löschen der ominösen Listbox2
• Listbox1 auschneiden und an der Stelle der ehemaligen Listbox2 einfügen
• Effekt: AV beim ansprechen von Listbox1 (NIL)

Der Anhang zeigt meine Strukturen der Gui.

Gruss
Delbor

Was hindert dich daran, mal im Debugger in der Codezeile zur Exception nachzusehn ob da irgendwo das böse NIL zu sehen ist?
[edit] grade das fast versteckte /Listbox2 ist nil entdeckt.

Heißt nur die Varaible/Feld so in der PDFOfficerMain, aber in der DFM/OI heißt die Komponente anders?

Oder wurde Listbox2 zur Programmlaufzeit umbenannt oder vielleicht doch freigegeben?

Du verwendest nicht zufällig eine with do begin Konstruktion irgendwo?

Hi zusammen

Vielen Dank für eure Antworten!

Zitat von himitsu:

Heißt nur die Varaible/Feld so in der PDFOfficerMain, aber in der DFM/OI heißt die Komponente anders?

Zumindest im OI heisst sie so, und demnach wohl auch in der DFM - denn da kommen dieDaten der Strukturansicht wohl her.

Zitat von himitsu:

Oder wurde Listbox2 zur Programmlaufzeit umbenannt oder vielleicht doch freigegeben?

Nein, wurde sie nicht.

@Luckie: Hab ich mir schon vor längerem abgewöhnt...

Aber nach dem Mittagsschläfchen (um vier Uhr ) fiel mir ein, was ich nicht gecheckt habe: nämlich enabled des Parentpanels. Ich mag mich nebulös erinnern, dass ichs schon mal geschafft habe, sowas unbeabsichtigt zu ändern.

...
Soeben nachgeholt - das Ergebnis seht ihr im Anhang...

Grrr....Seit wann kann Delphi denn ein Burnout haben???

Gruss
Delbor

Hast du möglicherweise Lokalisierungen die nicht aktualisiert wurden? Da stecken auch die dfm resourcen drin und wenn da noch nicht die ListBox2 drin ist, wird sie beim dfm streamen nicht erstellt und demnach bleibt das ListBox2 Feld nil.

Im Screenshot zu Post 2 ist ListBox2 nicht enthalten, sie soll aber doch auch auf Panel7 liegen?

Enabled sollte eigentlich keinen Auswirkungen auf die Zugriffsmöglichkeiten im Programmcode haben, enabled wirkt sich nur auf die Bedienbarkeit durch den Anwender aus.

Irgendwo muss es die ListBox2 geben, sonst würde der Compiler meckern.
Das eine auf 'nem Formular liegende Komponente Nil ist, ist eher ungewöhnlich.

Könnten wir bitte mal die DFM und die PAS vollständig zu gesicht bekommen. Da muss irgendwo was ungewöhnliches passieren, das man ohne den vollständigen Quelltext höchstwahrscheinlich nicht finden kann.

Alternativ:

Ist irgendwo unterhalb von type TPDFOfficerMain = class(TForm) die ListBox2 zu finden?
Wenn ja, ist sie auch in der DFM zu finden?
Wenn sie in der DFM fehlen sollte, wird sie nicht automatisch erstellt und bleibt daher Nil.

Zitat von Delphi.Narium:

Irgendwo muss es die ListBox2 geben, sonst würde der Compiler meckern.

Nein, da es das Feld gibt, meckert der Compiler nicht.
Aber in dem Feld ist einfach keine Referenz gespeichert.

Die VCL/FMX setzen in ihrem Owner die gleichnamige Variable, die so wie sie heißt.
Alle Komponenten im Formdesigner haben die Form als Owner.

Wie sieht die Definition von PDFOfficerMain aus?
Das Feld "Listbox2" muß natürlich published sein, sonst geht das automatische Setzen nicht.

Hi zusammen

@Delphi.Narium: Die Strukturansicht in Post2 zeigt die Situation, nachdem ich Listbox2 entfernt hatte und durch Listbox1 ersetzt hatte - und prompt war es dann auch diese, die in dieser Konstellation die AV auslöste.

Im Anhang nun mal einige jpeg- und pas-Dateien mit der kompletten DFM, bzw Formularansichten zur Lauf- und Designtime. Aussserdem ist eine kleinere pas dabei, die nur die aktuelle AddNewNode-prozedure zeigt, die einige auskommentierte Zeilen enthält, die von meinen Versuchen stammen.

Gruss
Delbor

Hi zusammen

Zitat von himitsu:

Zitat von Delphi.Narium:

Irgendwo muss es die ListBox2 geben, sonst würde der Compiler meckern.

Nein, da es das Feld gibt, meckert der Compiler nicht.
Aber in dem Feld ist einfach keine Referenz gespeichert.

Die VCL/FMX setzen in ihrem Owner die gleichnamige Variable, die so wie sie heißt.
Alle Komponenten im Formdesigner haben die Form als Owner.

Wie sieht die Definition von PDFOfficerMain aus?
Das Feld "Listbox2" muß natürlich published sein, sonst geht das automatische Setzen nicht.

Ein ausschnitt aus der Mainform-Deklaration:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TPDFOfficerMain = class(TForm)
    PnlToolBox: TPanel;
    CategoryPanelGroup1: TCategoryPanelGroup;
 ...
    Panel7: TPanel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TVNameMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);

Ansonsten findet sich die komplette pas im Anhang meines letzten posts.

Gruss
Delbor