Delphi 10.2 Tokyo Release 3 Quelltexteditor

[Delbor]

Hi zusammen

Den im Anhang gezeigten Fehler erlebe ich nicht zum ersten mal - einen funktionierenden Trick zum Beheben des Fehlers ist nicht bekannt.
Hat noch jemand dies bemerkt?

Gruss
Delbor

[bnreimer42]

Unter welchen Umständen kommt der Fehler? Welche Eingabe war die letzte?

Ist der Kommentar verantwortlich?

Ich erinnere mich an einen Fehler, bei dem die Deklaration einer Proc verdoppelt wurde, aber leider nicht im Detail.

[Delbor]

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