Finde Fehler im Quelltext nicht

[Chemiker]

Hallo,

kann jemand mir sagen was diese Fehlermeldung zu bedeuten hat und wo ich suchen kann um sie abzustellen?
Der Fehler hat sich beim Ausdrucken des Quelltextes irgendwie eingeschlichen. Ich bin aber nicht in der Lage in genau zu lokalisieren.
Wenn ich den Programmlauf anhalte, steht der Cursor an eine unverdächtige Stelle die auch in Ordnung ist.

Bis bald Chemiker

[mkinzler]

Ohne den Code zu kennen, ist es schwer zu helfen

[alleinherrscher]

Sieht nach einer Speicherverletzung aus. Vielleicht ist irgendein objekt nicht richtig erzeugt worden oder du benutzt irgendwelche pointer falsch. Aber mkinzler hat recht, ohne Code, nix zu machen.

[RWarnecke]

Dein Fehler muss ja bei irgendeiner Aktion ausgewführt werden. Setze doch dort einen Breakpoint und gehe dann Schritt für Schritt Deinen Sourcecode durch. Ansonsten, wenn wir keinen Sourcecode haben können wir nur raten :glaskugel:

[Chemiker]

Hallo,

wenn ich das Programm anhalte steht er auf folgende Zeile.

Delphi-Quellcode:

iMaxMessStellen:= 0;

iMaxMessStellen ist als integer deklariert, das ist auch soweit in Ordnung.

Gibt es eine Möglichkeit alle Units eines Projektes zu vergleichen, so das nur die Zeilen angezeigt werden die Unterschiedlich sind?

Bis bald Chemiker

[Die Muhkuh]

Du musst eine Stelle weiter oben angucken. Das Programm hält immer eine Stelle danach.

[Klaus01]

Zitat:

Zitat von Chemiker

Gibt es eine Möglichkeit alle Units eines Projektes zu vergleichen, so das nur die Zeilen angezeigt werden die Unterschiedlich sind?

Bis bald Chemiker

BeyondCompare

Grüße
Klaus

[Die Muhkuh]

Oder WinMerge, wäre kostenlos.

[RWarnecke]

Ich habe es schon öfters gehabt, Delphi hat mit einen Fehler angezeigt und wenn ich dann auf Break geklickt habe, war ich in der Unit zu einer Komponente. Deshalb führe folgende Schritte aus :
Um an diesen Punkt zu kommen, muss ja vorher ein Ereignis (Click auf ein Button oder ein Eintrag aus einer Listbox wird ausgewählt) ausgeführt werden oder nicht ? Wenn ja, dann setze doch dort den Breakpoint und gehe mit Einzelschritt weiter, bis Du den Fehler bekommst. Dann siehst Du eher wo Dein Problem liegt.

Edit: Warum will ich Dateien vergleichen, wenn ich eine Fehler im Sourcecode habe ? :gruebel: Das kommt mir irgendwie so vor, wie mit Kanonen auf Spatzen geschossen.

[Chemiker]

Hallo,

Zitat:

Zitat von RWarnecke

Edit: Warum will ich Dateien vergleichen, wenn ich eine Fehler im Sourcecode habe ? Das kommt mir irgendwie so vor, wie mit Kanonen auf Spatzen geschossen.

das Programm besteht aus grob 100 Units (geschätzt ich habe sie nicht gezählt). Der Fehler tritt im MainForm auf, deswegen kann ich auch nicht den Quelltext senden, dass währe zu umfangreich.
Ich habe vom 26.02.2009 noch eine lauffähige Version, wo der Fehler nicht auftritt, allerdings habe ich seit dieser Zeit wieder dran gearbeitet und würde so meine Vorstellung nur die Änderungen angezeigt bekommen die in diesem Zeitraum durchgeführt worden sind.
Habe mit Historie von der Delphi – IDE schon einige Units durchgearbeitet, dass ist aber sehr mühselig.

Bis bald Chemiker

[RWarnecke]

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

[Chemiker]

Hallo RWarnecke,

Delphi-Quellcode:

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..-