Finde Fehler im Quelltext nicht

[RWarnecke]

Hast Du es denn schon so ausprobiert, wie ich es in meinem Beitrag #9 geschrieben habe ?

[Chemiker]

Hallo RWarnecke,

TfrmSPSDAPHauptMenue.FormCreate(Sender: TObject); Der Fehler kommt schon in dieser Procedure also mehr oder weniger beim Start des Programmes.

Bis bald Chemiker

[RWarnecke]

Und bei welchem Befehl in der Procedure FormCreate tritt der Fehler auf ? Gehe doch die Procedure Schritt für Schritt durch, bis Du an besagter Sourcecodezeile angekommen bist.

[craash]

vielleicht versuchst du etwas aufzurufen/darzustellen was noch nicht erzeugt wurde?

[Cyberbob]

Du veruchst nicht zufällig auf ein Formular oder Objekt zuzugreifen, das beim Create des Hauptformulars noch nicht Existiert? Die Mainform ist eigentlich immer die erste, die erzeugt wird, danach kommt erst alles andere. Von daher kannst du auch nicht auf Dinge zugreifen, die noch nix existieren!
Geh die angegebene Funktion oder Prozedur mal schritt für schritt durch und schau, wann die AV auftritt!

[Chemiker]

Hallo,

danke an alle, habe den Fehler gefunden.

Ich habe blöderweise aus dem Projekt eine Function geändert und in einem anderen Projekt benutzt. Das hatte ich total vergessen, aber mit dem Programm WinMerg wurde mir die Unit angezeigt, dass sie auch geändert worden ist. So konnte ich den Fehler dann Lokalisieren und beseitigen.
Bei der unteren Funktion hatte ich das var vor NeueNode: TTreeNode gelöscht. So ganz Verstehen kann ich das noch nicht, weil ja eigentlich TTreeNode ein Object ist, also wird für mein Verständnis ein Zeiger übergeben.

Delphi-Quellcode:

function TVNodeInsert (Nod: TTreeNodes; var NeueNode: TTreeNode;
                       const strElternKnoten: String; const strKnoten: String;
                       Obj: TObject): boolean; overload;
var
  TempNode: TTreeNode;
begin
  result:= FALSE;              // Es ist kein Knoten im Baum eingetragen worden
  TempNode:= Nod.GetFirstNode; // Root-Knoten in TempNode speichern
  while TempNode <> NIL do     // Solange wiederholen, bis TempNode = NIL ist
  begin
    If (CompareText(TempNode.Text, StrElternKnoten)=0) then
    begin
      if NOT(IstDoppelt(Nod, strKnoten)) then // Ist der Knoten nicht vorhanden
      begin
        // Neuer Knoten eintragen mit einem Object
        NeueNode:= Nod.AddChildObject(TempNode,StrKnoten,Obj);
        Result:= TRUE;                          // Es ist ein Knoten eingetragen
      end;
    end;
    TempNode:= TempNode.getNext;                // Nächster Knoten in TempNode
  end;
end;

Bis bald Chemiker

[craash]

-entfernt, hatte die 2te seite nicht gesehen..-