TStringList Freigeben erzeugt Exception

[angos]

Hallo,

ich habe mal eine Frage. Ich arbeite mit einer StringList, welche ich im Create eines DataModules erzeuge und später im Destroy des DataModules wieder freigeben möchte.

Folgender Aufruf geht nicht, ich bekomme dort eine Exception: Zu viele Exceptions sind aufgetreten :stupid: :

Delphi-Quellcode:

procedure TdamScaDatabase.DataModuleCreate(Sender: TObject);
begin
  SLTaetigkeiten := TStringList.Create;
end; // TdamScaDatabase.DataModuleCreate

procedure TdamScaDatabase.DataModuleDestroy(Sender: TObject);
begin
  if SLTaetigkeiten <> nil then
  begin
    SLTaetigkeiten.Free;
    SLTaetigkeiten := nil;
  end;
end;

wohin gegen, dass hier sehr wohl funktioniert:

Delphi-Quellcode:

procedure TdamScaDatabase.DataModuleCreate(Sender: TObject);
begin
  SLTaetigkeiten := TStringList.Create;
end; // TdamScaDatabase.DataModuleCreate

procedure TdamScaDatabase.DataModuleDestroy(Sender: TObject);
begin
  if SLTaetigkeiten <> nil then
  begin
    SLTaetigkeiten.Clear;
    SLTaetigkeiten.Free;
    SLTaetigkeiten := nil;
  end;
end;

Der Unterschied ist also, dass ich das Clear ebenfalls noch mit aufrufe. Muss das so, oder mache ich an der Stelle etwas falsch, könnte man das anders/besser lösen.

[Nuclear-Ping]

Die Exception ist "Zuviele Exceptions sind aufgetreten"? :gruebel:

[p80286]

Hallo Ansgar,

ich möchte Dir nicht zu nahe treten, aber da stimmt etwas nicht! Ich habe Deinen Code etwas anders formuliert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ll : tstringlist;
begin
  ll:=tstringlist.Create;
  ll.add('Test');
  ll.free;
  ll:=nil;
end;

Das funktioniert problemlos nur wird ll:=nil vom debugger ignoriert, was ja nichts macht da ll nach dem end; sowieso im Orkus verschwindet. Meiner Meinung nach hast Du Dir irgendwelche nicht offensichtlichen Seiteneffekte eingehandelt.

Gruß K-H

[mkinzler]

Bei welchem Befehl?

[SirThornberry]

ich glaube auch das du wo anders was durcheinander bringst. Zudem glaube ich das du deiner Stringlist ein OnChange zugewiesen haben könntest welches noch ausgelöst wird.
Ein "inherited Create..." und "inherited Destroy" vermisse ich auch bei deinem Quelltext.

[Sharky]

Hai angos,

kann es sein das Du in deiner TStringList auch Objekte hinterlegst?
Dann ist es "klar" das Du erst die Items aus der SL löschen musst (um auch die Objekte freizugeben).

Zitat:

Zitat von Sir Thornberry

Ein "inherited Create..." und "inherited Destroy" vermisse ich auch bei deinem Quelltext.

Wofür braucht er das denn? Er hat ja keine eigene Klasse erzeugt.

[SirThornberry]

oh :oops: Auf den ersten Blick sah es für mich aus wie der Constructor und Destructor einer Komponente.

[angos]

Hmmm, also ich hab das ja selber auch nicht glauben wollen, aber bei mir schießt Delphi aber dabei ab.
Das einzige, was ich sonst noch mit der SL tue ist das Füllen, beim Durchlaufen einer Datenquelle:

Delphi-Quellcode:

if not Query.Eof then
      begin
        Query.First;
        while not Query.Eof do
        begin
          SLTaetigkeiten.Add(Query.FieldByName('KOSTSTELLE').AsString);
          Query.Next;
        end;
      end;

Leider ist der genaue Zeitpunkt der AV nicht bestimmbar, da dies nach Ausführung meines gesamten Programmes passiert :(

Aber wie gesagt: Las ich das ganz raus, oder ändere das Freigeben wie beschrieben, tritt das nicht auf!


Wortlaut der Excpetion: Im Projekt Projektname sind zu viele aufeinander folgende Exceptions aufgetreten: Zugriffsverletzung XXX bei Adresse YYY. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

PS: Hilfe sagt mir zu der AV: Der Debugger verfolgt alle auftretenden Exceptions, einschließlich derjenigen, die in Ihrer Anwendung behandelt werden. Diese Meldung weist wahrscheinlich, aber nicht notwendigerweise auf einen Programmfehler hin. Sie wird angezeigt, wenn in der Anwendung nacheinander eine große Anzahl bestimmter System-Exceptions an derselben Adresse auftreten.


PS 2: So, ich habe einmal Testweise die Zeile

Delphi-Quellcode:

SLTaetigkeiten.Add(Query.FieldByName('KOSTSTELLE').AsString);

auskommentiert, Projekt erzeugt, gestartet ---> Es geht

Dann habe ich das Kommentar wieder entfernt, Projekt erzeugt und es geht immer noch OO

Hat dazu noch jemand eine Idee? kann das An IDE-Plugins liegen?

- Delphi 7 (4453)

Installierte IDE-Plugins:
- GExperts
- DelForExp
- Delphi SpeedUp 7

Verwirrte Grüße
angos

[RavenIV]

Zitat:

Zitat von angos

auskommentiert, Projekt erzeugt, gestartet ---> Es geht

Da würd ich mal sagen, dass der Compiler sich verkompiliert hat.
Oder dass alte dcu's eingebunden wurden.
Mit "erzeugen" werden nämlich alle dcu's neu erstellt und somit stimmt dann wieder alles.

[littleDave]

Hatte auch mal so ein ähnliches Problem: bei mir gab es eine Klasse, die dass Screen-Center als TPoint benötigt hat. Das hab ich auch korrekt übergeben und im Debugger wurden auch die korrekten Werte angezeigt. Direkt nach dem Aufrufen waren die Werte total verwurschtelt und komisch (aPoint.X war -61262524 glaub ich und aPoint.Y war immer 1). Da hat sogar erst ein Restart der IDE das Problem gelöst (Ebenfalls Delphi 7)

[shmia]

Ich schlage folgende Änderungen vor:

Delphi-Quellcode:

procedure TdamScaDatabase.DataModuleDestroy(Sender: TObject); 
begin 
  //SLTaetigkeiten.Free; 
  //SLTaetigkeiten := nil; 
  FreeAndNil(SLTaetigkeiten);   // <==== Objekt ggf. freigeben und Zeiger auf nil setzen
end;

if not Query.Eof then 
  begin 
    Query.First; 
    while not Query.Eof do 
    begin 
      if not Assigned(SLTaetigkeiten) then
      asm
         INT 3
      end
      else 
         SLTaetigkeiten.Add(Query.FieldByName('KOSTSTELLE').AsString); 
      Query.Next; 
    end; 
  end;

Wenn dein Programm im integrierte Debugger läuft, dann hält der Debugger mit INT 3 an der Stelle an,
an der du auf die freigegebene Stringliste zugreifen möchtest.
So kannst du dann z.B. den Aufrufstack dir anzeigen und herausfinden warum der Zugriff erfolgt,
obwohl doch gar nicht erlaubt.

[angos]

Hi Leute,

bin leider erst jetzt wieder dazu gekommen, hier mal wieder nachzuschauen.

@RavenIV: Auch bei meinen vorherigen Versuchen (ohne das auskommentieren) habe ich das Projekt jeweils neu erzeugt. Das hatte da leider nicht funktioniert.

@Shmia: Das Problem ist ja imho nicht die Zeile, wo ich die Stringliste fülle. Das klappt ja alles. Das Problem war, dass beim schließen der Anwendung die AV kam.
Deinen Code speicher ich mir trotzdem mal weg, der könnte sicherlich nochmal nützlich sein :)


Ich glaube jetzt auch erstmal an nen Fehler im Compiler/Delphi, bis mich einer eines besseren belehrt.

Grüße und Danke an Alle
angos

[shmia]

Zitat:

Zitat von angos

Ich glaube jetzt auch erstmal an nen Fehler im Compiler/Delphi, bis mich einer eines besseren belehrt.

Kein Problem: stell dir vor, irgendwo in deinem Programm wird Speicher überschrieben (z.B. ein Objekt wurde freigegeben, die Variable zeigt aber noch auf die alte Stelle und dann wird das nichtexistierende Objekt verändert)
Da passiert zunächst vielleicht gar nichts, nur der Heap ist "versaubeutelt".
Erst wenn beim Programmende der Reihe nach aller Speicher freigegeben wird, dann knallts.
Die Stelle, an der es knallt steht mit dem eigentlichen Bug nicht in Verbindung.

Vorgehensweise:
das Programm wird so lange abgespeckt (Funktions- und Prozeduraufrufe auskommentieren), bis der Fehler nicht mehr auftritt. Dann nach Sherlock Homes Manier einkreisen.

[Union]

Wo ist denn die Stringliste deklariert? Im Datenmodul oder in einer anderen unit?