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 :

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"?

[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 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 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 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 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)