Delphi 6 -> Delphi 10.2

[himitsu]

Erstmal solltest du mit dem Debugger schauen was los ist.

"access violation at 0x006c7022: read of address 0x00000004"

0x006c7022 ist die Stelle des Fehlers im code/Programm

Und bei 0x00000004 konnte nicht zugrgriffen werden, was auch klar ist, da die Adressen $00000000 bis $0000FFFF niemals existieren (außer in Treibern)

$00000004 = nil + Offset_ZBzurVariableOderPropertyInEinemObjekt



ACHTUNG: Die Fehlerzeile kann auch manchmal die Codezeile über der markierten Stelle sein.
Vor allem wenn man über den Stack-Trace sucht, denn da stehen die Rücksprungadressen drin, also de Befehl danach und auch der Debugger verrutscht manchmal ein bissl.

Meine Vermutung Current oder Children ist NIL.
Jetzt mußt du nur noch rausbekommen, warum das so ist. (dort suchen, wo es erstellt/zugewiesen wurde)
[edit] da Current auf NIL geprüft wird, wird es wohl das Children in der Zeile davor sein

[KodeZwerg]

Könnte auch totaler Quark sein den ich hier von mir gebe:
Hast Du eventuell als Ziel-Platform von 32 auf 64 bit gewechselt?
(Falls gefragt war was ein guter/übersichtlicher Debugger ist, ich kann den von HexRay's empfehlen.)

[jaenicke]

Zitat von KodeZwerg:

(Falls gefragt war was ein guter/übersichtlicher Debugger ist, ich kann den von HexRay's empfehlen.)

Viel sinnvoller ist doch der in Delphi integrierte, wenn man den wie hier zur Verfügung hat. Da kannst du schließlich auf Quelltextebene statt auf Assemblerebene debuggen soweit möglich, aber wenn nötig auch auf Assemblerebene weitermachen.

[HeZa]

Ich befrage mal die Glaskugel:

Die Exception passiert durch den Aufruf von Current := Children[i]; und zwar deswegen, weil es die erste Stelle in der Funktion ist, die auf eine Instanz-Daten deiner Klasse zugreift. Leider ist deine Instanz (vom Typ TZSymbolNode) nicht initzialisiert.

Suche also die Stelle wo deine Instanz erstellt werden sollte.

Erster Versuch: Wenn du im Debugger an der Stelle ankommst, gehe den Aufrufstack Schritt für Schritt hoch.

Zweiter Versuch: Suche nach Stelllen TZSymbolNode.Create . Vielleich findest du so was wie:

Delphi-Quellcode:

var
  node: TZSymbolNode;
begin
  if xxx then
    node: TZSymbolNode.Create;
    node.FindChildWithChar(); // hier ist node evtl. nicht Initzialisiert
end;

Dritter Versuch: Nimm FastMM zu Hilfe.

[Temi00]

Hallo Forum,
nein als Zielplattform ist weiter 32bit eingestellt.

Ich habe ja in den Zeos sourcen überhaupt nichts geändert.

Kenne leider die Objectorientierte Programmierung nicht (Hab bisher meist PHP funktionale Programmierung - allerhöchstens objectbasiert aber nicht objectorientiert programmiert)

Delphi-Quellcode:

function TZSymbolNode.FindChildWithChar(Value: Char): TZSymbolNode;
var
  I: Integer;
  Current: TZSymbolNode;
begin
  Result := nil;
  for I := 0 to 255 do
  begin
    Current := Children[I];  <------- 
    if (Current = nil) or (Current.Character = Value) then
    begin
      Result := Current;
      Break;
    end;
  end;
end;

Woher kommt den die Variable Children? Ist das eine globale Variable? Ich denke nicht muß wohl was wie Childs vom Objekt TZSymbolNode sein?
Ja laut Debugger sind da 256 member(?) von Children nil

Ich suche jetzt also wie vorgeschlagen nach

TZSymbolNode.Create

Delphi-Quellcode:

// also finde ich hier

constructor TZSymbolNode.Create(Parent: TZSymbolNode; Character: Char);
begin
  FParent := Parent;
  FCharacter := Character;
  FValid := False;
  SetLength(FChildren, 256);
end;

// und hier


constructor TZSymbolRootNode.Create;
var
  I: Integer;
begin
  inherited Create(nil, #0);

  for I := 0 to 255 do
  begin
    FChildren[I] := TZSymbolNode.Create(Self, Chr(I));
    FChildren[I].Valid := True;
  end;
end;

wenn man den Aufrufstack anschaut (siehe Anhang) kann man vieleicht das ganze verkürzen? den wie gesagt am Quellcode der Zeos Komponenten habe ich nichts geändert.

sorry für die blutigen Anfängerfragen.

[mkinzler]

Ist einstellbar

http://docwiki.embarcadero.com/RADSt...iler-Direktive)

[MichaelT]

Irrtum (meinerseits).

Zitat von mkinzler:

Ist einstellbar

http://docwiki.embarcadero.com/RADSt...iler-Direktive)

[Temi00]

Zitat von MichaelT:

In Delphi ist im Gegensatz zu Pascal die Kurzschlussauswertung allein am AND definiert und nicht am OR

ist zwar off topic aber IMHO muss man beim AND immer beide Ausdrücke auswerten beim OR kann auch wegoptimiert werden. Unwahrscheinlich dass das bei Pascal anders war. Just my 2 cents

[MichaelT]

Nein. Ein Nuller genügt beim AND. Nur T AND T is T. Ist bei OR nicht anders.

[himitsu]

Zitat von Temi00:

ist zwar off topic aber IMHO muss man beim AND immer beide Ausdrücke auswerten beim OR kann auch wegoptimiert werden. Unwahrscheinlich dass das bei Pascal anders war. Just my 2 cents

Nein.

Mit der standardmäßigen kurzen Auswertung:
Bei OR wird der zweite nur ausgewertet, wenn der erste FALSE ist
Bei AND wird der zweite nur ausgewertet, wenn der erste TURE ist

Ansonsten steht das Ergebnis ja schon fest und Delphi spart sich die weitere Auswertung.
false AND irgendwas = false
true OR irgendwas = true

Darum kann man in Delphi standardmäßig auch sowas machen
if Assigned(irgendwas) and irgendwas.wasanderes then Bei anderen Sprachen, die immer voll auswerten, oder wo die Auswertereihenfolge sich ändern kann, da geht das nicht.
z.B. in einigen DBMS (SQL), wo immer vollständig ausgewertet wird und wo der Queryplaner nach Gutdünken die Auswertung umdrehen kann.