Access Violation nach Hinzufügen eines RichEdit

[Caps]

Hi,

folgendes merkwürdige passiert bei mir:
Ich habe eine Form und ein paar Buttons, mit denen ich einen Algorithmus anstoße, der mit dynamischen Arrays arbeitet.
Soweit alles gut - funktioniert.

Füge ich jedoch der Form ein RichEdit hinzu (einfach nur Hinzufügen der Komponente, keine Event-Handler oder sonst was) und führe das Programm aus, so erhalte ich regelmäßig eine AccessViolation (Schreibzugriff) bei der SetLength-Funktion, die mein dyn. Array vergrößern soll.

Ich vermute, dass SetLength den Speicherbereich beschreiben will, in dem die RichEdit-Komponente angesiedelt ist, aber das kann ich in der WatchList nicht genau ausmachen.

Bevor ich Code poste (weil ist viel) wollte ich fragen, ob jemandem so ein Problem schon begegnet ist, oder ob es weitere Ideen gibt.

Grundsätzlich verfahre ich mit dynamischen Arrays so:
- Deklaration
- Allokierung mit SetLength
- Wertezuweisung

Muss ich noch was beachten? Kümmert sich Delphi nicht um die Trennung der Speicherbereiche? Bzw. wie kann ich sicherstellen, dass ich nicht in den Speicher einer Komponente schreibe? :gruebel:

Schonmal danke für Ideen & viele Grüße
Caps

Edit: es tritt auch auf, wenn ich andere Komponenten hinzufüge, statt eines RichEdits...

[Uwe Raabe]

Zitat:

Zitat von Caps (Beitrag 1146058)

Kümmert sich Delphi nicht um die Trennung der Speicherbereiche?

Doch, das tut es!

Zeig doch mal den Code - wenigstens von der Deklaration des Arrays bis zum SetLength...

[himitsu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1146078)

Doch, das tut es!

Innerhalb einer Anwendung nicht.

Und zwischen verschiedenen Anwendungen trennt Windows das ab. (seit der WinNT-Reihe)

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1146133)

Zitat:

Zitat von Uwe Raabe (Beitrag 1146078)

Doch, das tut es!

Innerhalb einer Anwendung nicht.

Natürlich trennt Delphi den Speicherbereich eines dynamischen Arrays von dem einer Objekt-Instanz. Insofern kann man eigentlich gefahrlos ein SetLength auf ein Array loslassen, ohne sich um den dabei involvierten Speicher zu kümmern. Das wäre ja vorsintflutlich, wenn man sich noch selbst um die Position seiner Variablen im Speicher kümmern müsste.

Die Tatsache, daß es in diesem Fall zu einer Access-Violation kommt ist mit hoher Wahrscheinlichkeit ein Fehler im Code - und nicht eine Unzulänglichkeit von Delphi.

[Luckie]

Es sieht so aus, als wenn er seinen Speicher nicht sauber verwaltet (hinter das Array schreibt) und bisher Glück gehabt hat, weil da nichts kam. Jetzt liegt da aber wohl das RichEdit im Speicher und dann überschreibt er sich den Speicher des RichEdits.

[Uwe Raabe]

Zitat:

Zitat von Luckie (Beitrag 1146161)

Es sieht so aus, als wenn er seinen Speicher nicht sauber verwaltet (hinter das Array schreibt) und bisher Glück gehabt hat, weil da nichts kam. Jetzt liegt da aber wohl das RichEdit im Speicher und dann überschreibt er sich den Speicher des RichEdits.

Das glaube ich auch - aber er zeigt uns ja nichts...

[Caps]

Hi,

naja, ich war gestern nicht am Rechner... aber jetzt zeig ich was.
Danke für die Antworten inzwischen!
(Leider bekomme ich nach der Access Violation nur ein CPU-Fenster angezeigt, da erkenne ich leider nicht, was schiefgegangen sein könnte)

Deklaration von TCell:

Delphi-Quellcode:

    TCell = class(TObject)
            public
             entries: Array of TCellEntry; // Zelleinträge
             position: TCellReference; // Metrische Position der Zelle
             constructor Create; overload;
             constructor Create(pX, pY, pZ: Integer); overload;
             procedure addToEntries(pMainIndex: Integer; pWayPoints: TIntArray); overload;
             procedure addToEntries(pMainIndex: Integer; pWayPoints: Array of Integer); overload;
             function transit(pMainIndex, pStepWidth: Integer): Boolean;
            end;

Implementierung von addToEntries(), der Methode von TCell innerhalb derer das SetLength schiefgeht:

Delphi-Quellcode:

procedure TCell.addToEntries(pMainIndex: Integer; pWayPoints: TIntArray);
var
   len: Integer;
begin
With self do begin
     len := Length(entries);
     inc(len);
     SetLength(self.entries, len); // <<<=== FEHLERPOSITION
     entries [len-1] := TCellEntry.Create;
     With entries [len-1] do begin
          mainIndex := pMainIndex;
          setWayPoints(pWayPoints);
                             end;
             end;
end;

Die Funktion, in der die Methode addToEntries()aufgerufen wird, und wobei dann der Fehler auftritt:

Delphi-Quellcode:

function TCell.transit(pMainIndex, pStepWidth: Integer): Boolean;
var
   baseList: Array of TCellEntry; // Liste aller Einträge mit Hauptindex = pMainIndex
   targetList: TCellReferenceArray; // Liste aller Zellreferenzen, die als Ziel in Frage kommen
   i, j, k: Integer;
   len: Word;
   targetCell: TCell;
   targetValid: Boolean;
   temp_wayPoints: TIntArray;
begin
result := false; // Bei Abbruch der Funktion an irgendeiner Stelle ist auf jeden Fall (result = false) gegeben
With self do begin
     if Length(entries) > 0 then begin // Falls Einträge in der aktuellen Zelle vorhanden sind...


        For i:=0 to Length(entries)-1 do begin // Basisliste anlegen...
            if entries [i].mainIndex = pMainIndex then begin
               len := Length(baseList);
               inc(len);
               SetLength(baseList, len);
               baseList [len-1] := entries [i];
                                                       end;
                                         end;

        SetLength(targetList, 0);
        targetList := calculatePotentialTargets(self.position, pStepWidth); // Liste potentieller Ziele berechnen...

        // Einträge in den validen Zielen anlegen...
        For i:=0 to Length(baseList)-1 do begin // Für alle Einträge der aktuellen Zelle...
            For j:=0 to Length(targetList)-1 do begin // Für alle Ziele... (von der aktuellen Zelle aus)
                targetCell := getCellByReference(targetList [j], mainCellArray);
                targetValid := true;

                For k:=0 to Length(targetCell.entries)-1 do begin // Für alle Einträge der Zielzelle (falls vorhanden) prüfe ob "wir" den geschrieben haben, d.h. ob wir schonmal da waren...
                    With targetCell.entries [k] do begin
                         if (mainIndex < pMainIndex) and
                            (isPrefix(wayPoints, baseList [i].wayPoints)) then begin
                            targetValid := false;
                            break;
                                                                               end;
                                                   end;
                                                            end;

                if targetValid then begin // Wenn das Ziel nicht invalidiert wurde...
                   temp_wayPoints := baseList [i].getWayPoints;
                   len := Length(temp_wayPoints);
                   inc(len);
                   SetLength(temp_wayPoints, len);
                   temp_wayPoints [len-1] := j;
                   targetCell.addToEntries(pMainIndex+1, temp_wayPoints); // <<<=== FEHLERPOSITION
                   result := true;
                                    end;
                                                end;
                                          end;

                                 end;
             end;
end;

Eine möglicherweise sehr wichtige Information ist diese:
In der Methode TCell.transit() tritt der Fehler bei Aufruf der Methode targetCell.addToEntries() auf (da wo FEHLERPOSITION steht).
Interessant ist, dass der Fehler nicht auftritt, wenn ich das SetLength aus targetCell.addToEntries() vor dem Aufruf von targetCell.addToEntries() quasi "manuell" selber ausführe, in dem ich vorher eine Zeile einfüge, die lautet:
SetLength(targetCell.entries, <Größe>)
In diesem Fall bekomme ich keine Access Violation bei der Veränderung dieses Arrays - passiert die Veränderung jedoch innerhalb der Methode, so erhalte ich eine Violation.
--> nix verstehen :shock:

Wenn Ihr noch mehr Code braucht - kein Problem, is ja nicht geheim. Is halt noch ein bisschen was.

Bin gespannt auf Rückfragen oder Ideen...

Viele Grüße
Caps

[Luckie]

Die Formatierung ist jetzt nicht dein Ernst oder?

Delphi-Quellcode:

SetLength(targetList, 0);
targetList := calculatePotentialTargets(self.position, pStepWidth);

Du setzt die Länge des Arrays auf null und weißt ihr dann ein anderes Array zu?

[Caps]

Zitat:

Zitat von Luckie (Beitrag 1146371)

Die Formatierung ist jetzt nicht dein Ernst oder?

Doch.

Zitat:

Zitat von Luckie (Beitrag 1146371)

Delphi-Quellcode:

SetLength(targetList, 0);
targetList := calculatePotentialTargets(self.position, pStepWidth);

Du setzt die Länge des Arrays auf null und weißt ihr dann ein anderes Array zu?

Ah, könnten dadurch bei jedem Schleifendurchlauf alte "Instanzen" des Arrays übrigbleiben? Ich sollte wahrscheinlich das Array targetList eher als var-Parameter verwenden, gel?

[Luckie]

Dein dynamisches Array ist null Elemente groß und du weiß ihm ein Array mit n Elementen zu? Kann das funktionieren?

[Caps]

Wird da nicht ein Pointer zugewiesen?
Dann wäre die Länge des "Zielarrays" doch egal, oder?

[himitsu]

Jupp, das SetLength(0) ist eher unnötig.
Hier wird quasi die gesamte Array-Referenz kopiert.

Delphi-Quellcode:

With self do begin

ist ebenfalls nicht wirklich nötig.


Wie/Wo hast du denn die TCell-Instanzen erstellt?
Ich würde einfach mal dort den Fehler suchen, da die Zugriffsverletzung beim ersten Schreibzugriff auf die TCell-Instanz auftritt (innerhalb von addToEntries).

[Caps]

Also targetCell wird einige Zeilen höher mit

Delphi-Quellcode:

targetCell := getCellByReference(targetList [j], mainCellArray);

aus dem Zellen-Array "geholt", d.h. es wird auf eine bestimmtes Objekt aus dem mainCellArray (Array of TCell) verwiesen, das ist eine globale Variable, die zu Anfang einmal initialisiert wird, d.h. alle Objektinstanzen im Array werden gebildet.

[Uwe Raabe]

Zitat:

Zitat von Caps (Beitrag 1146424)

Also targetCell wird einige Zeilen höher mit

Delphi-Quellcode:

targetCell := getCellByReference(targetList [j], mainCellArray);

aus dem Zellen-Array "geholt", d.h. es wird auf eine bestimmtes Objekt aus dem mainCellArray (Array of TCell) verwiesen, das ist eine globale Variable, die zu Anfang einmal initialisiert wird, d.h. alle Objektinstanzen im Array werden gebildet.

Und targetCell ist auch sicher nicht nil?
Hast due das Range-Checking eingeschaltet?
Zeigen die Variablen beim schrittweise Ausführen vernünftige Werte an?

Deine übermäßige Verwendung von Self solltest du nochmal überdenken. Die with-Anweisungen sind auch nicht sehr hilfreich bei der Fehlersuche.

[Caps]

Zitat:

Zitat von Uwe Raabe (Beitrag 1146549)

Und targetCell ist auch sicher nicht nil?
Hast due das Range-Checking eingeschaltet?
Zeigen die Variablen beim schrittweise Ausführen vernünftige Werte an?

Deine übermäßige Verwendung von Self solltest du nochmal überdenken. Die with-Anweisungen sind auch nicht sehr hilfreich bei der Fehlersuche.

Jaja, Du hast Recht.
Ich glaube ich habe gerade nur noch Lust, das ganze entweder mit TList oder mit einem Array-Wrapper umzusetzen, also einer Klasse, die das Array-Handling kapselt. Sowas müsste es doch eigentlich schon geben oder?
Ich würde hier nicht offtopic gehen wollen, aber falls Ihr schnell noch ein Schlagwort habt... sowas wie "TArray" oder so... - nebenbei: ich arbeite noch mit Delphi 5, da hab ich sowas jedenfalls noch nicht an Bord.

Nichts für ungut, zum Glück ist das ein privates Projekt, ich hab nämlich keinen Bock mehr auf Fehlersuche :lol:. Außerdem habe ich gemerkt, dass ich (natürlich) nicht darüber nachgedacht hatte, dass eine Funktion kein Array sondern eine Referenz auf ein Array zurückgibt. Naja, ein Produkt der Abendstunden.

Danke nochmal für die Mühen!
Viele Grüße
Caps

[Luckie]

Äh, liest du auch was du selber schreibst? Du hast es doch schon selber gesagt: TList oder wenn du Objekte hast TObjectList.

[Uwe Raabe]

Zitat:

Zitat von Caps (Beitrag 1146782)

nebenbei: ich arbeite noch mit Delphi 5

Du hast mein Mitgefühl :cry:

[Caps]

Zitat:

Zitat von Luckie (Beitrag 1146784)

Äh, liest du auch was du selber schreibst? Du hast es doch schon selber gesagt: TList oder wenn du Objekte hast TObjectList.

Ich weiß nicht so recht, was du meinst, aber ich werde es jetzt anders umsetzen.

Viele Grüße

[Caps]

Zitat:

Zitat von Uwe Raabe (Beitrag 1146817)

Zitat:

Zitat von Caps (Beitrag 1146782)

nebenbei: ich arbeite noch mit Delphi 5

Du hast mein Mitgefühl :cry:

Vielen Dank.
Ich denke wir können den Thread hiermit schließen.

Delphi-Quellcode:

finally
Gruesse;
end;

[Luckie]

Zitat:

Zitat von Caps (Beitrag 1146821)

Zitat:

Zitat von Luckie (Beitrag 1146784)

Äh, liest du auch was du selber schreibst? Du hast es doch schon selber gesagt: TList oder wenn du Objekte hast TObjectList.

Ich weiß nicht so recht, was du meinst, aber ich werde es jetzt anders umsetzen.

Lesen und verstehen:

Zitat:

Ich glaube ich habe gerade nur noch Lust, das ganze entweder mit TList