Hi bnreimer42
Hmm... Gute Frage - aber soweit ich mich erinnere, wollte ich einen auskommentierten Code umschalten und kopieren. Aktuell handelt es sich um dieses Codeschnipsel:
Delphi-Quellcode:
procedure TPathFinderFrame.AddNewNode(ParentNode: TTreeNode; const aCaption,
aRealName: string; CanGetChildren: Boolean);
var
Node: TTreeNode; NodeRect: TRect;
NameRec: PNameRec; DefaultDraw: Boolean;BCaption : String;
begin
Node := TVPathExplorer.Items.AddChild(ParentNode, aCaption);
if Assigned(PDFOfficerMain.ListBox2) then
begin
FFileCounter := 0;
PDFOfficerMain.ListBox2.Items.Add('FFileCounter := ' + (IntToStr(0)));
end;
Grundsätzlich ist die Listbox-Ausgabe nur zur Kontrolle/zum Test. Die if-SAssigned-Abfrage benötige ich, weil der Frame vor der Mainform erstellt wird und also zu der Zeit auch noch keine Listbox existiert.
Das selbe "Problem" hatte ich hier - die if-SAssigned-Abfrage ist inzwischen eingefügt:
Delphi-Quellcode:
procedure TPathFinderFrame.TVPathExplorerCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var NodeRect: TRect;
begin
inc(FFileCounter);
if Assigned(PDFOfficerMain.ListBox2) then
PDFOfficerMain.ListBox2.Items.Add('FFileCounter := ' + (IntToStr(0)));
Da ich das Problem auch kürzlich wieder hatte, hab ich bei dieser Gelegenhheit entdeckt, was Abhilfe schaffen kann: zu einer andern offenen
Unit wechseln und gleich wieder zurück.
Zitat:
Ist der Kommentar verantwortlich?
Es geschah, als ich die auskommentierten Zeilen markierte, ob aber der Kommentar wirklich verantwortlich ist, kann ich nicht sagen.
Gruss
Delbor