Error 223

[Monday]

Zitat von hoika:

Hallo,

unter Delphi benutzt ich FastMM4 zum Erkennen von Speicherlecks.
Lazarus hat doch bestimmt etwas ähnliches ?

Eine kurze Suche:

http://forum.lazarus.freepascal.org/...p?topic=5240.0

und
http://stackoverflow.com/questions/1...pascal-lazarus

Heiko

Das mit dem Heaptrc habe ich ausprobiert. Puh aber was mir das konkret sagen soll und welche Erkenntnisse ich daraus ziehen kann, weiß ich nicht, hatte mich damit noch nie beschäftigt...

Ich hatte soetwas in der Art bekommen. Allerdings viel länger und soweit ich gesehen habe, haben sich die Abschnitte immer wieder wiederholt:

Code:

Heap dump by heaptrc unit
110350 memory blocks allocated : 19827548/20238696
77987 memory blocks freed     : 8643622/8963072
32363 unfreed memory blocks : 11183926
True heap size : 14942208 (160 used in System startup)
True free heap : 1140880
Should be : 1595192
Call trace for block $0023FFE0 size 5
  $006DABAF  TZSQLITECAPIPREPAREDSTATEMENT__BINDINPARAMETERS,  line 518 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/dbc/ZDbcSqLiteStatement.pas
  $006DB747  TZSQLITECAPIPREPAREDSTATEMENT__EXECUTEUPDATEPREPARED,  line 657 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/dbc/ZDbcSqLiteStatement.pas
  $0071026F  TZABSTRACTRODATASET__EXECSQL,  line 1568 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/component/ZAbstractRODataset.pas
  $00440FFA  TFORM1__BUTTON1CLICK,  line 184 of unit1.pas
  $005481AE  TCONTROL__CLICK,  line 2711 of ./include/control.inc
  $00563D5F  TBUTTONCONTROL__CLICK,  line 54 of ./include/buttoncontrol.inc
  $0056445F  TCUSTOMBUTTON__CLICK,  line 169 of ./include/buttons.inc
  $00563C7A  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 20 of ./include/buttoncontrol.inc
Call trace for block $05A57288 size 5
  $006DABAF  TZSQLITECAPIPREPAREDSTATEMENT__BINDINPARAMETERS,  line 518 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/dbc/ZDbcSqLiteStatement.pas
  $006DB747  TZSQLITECAPIPREPAREDSTATEMENT__EXECUTEUPDATEPREPARED,  line 657 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/dbc/ZDbcSqLiteStatement.pas
  $0071026F  TZABSTRACTRODATASET__EXECSQL,  line 1568 of D:/lazarus/components/ZEOSDBO-7.1.2-stable/src/component/ZAbstractRODataset.pas
  $00440FFA  TFORM1__BUTTON1CLICK,  line 184 of unit1.pas
  $005481AE  TCONTROL__CLICK,  line 2711 of ./include/control.inc
  $00563D5F  TBUTTONCONTROL__CLICK,  line 54 of ./include/buttoncontrol.inc
  $0056445F  TCUSTOMBUTTON__CLICK,  line 169 of ./include/buttons.inc
  $00563C7A  TBUTTONCONTROL__WMDEFAULTCLICKED,  line 20 of ./include/buttoncontrol.inc
[...]

[Sir Rufo]

Darum nimmt ja auch

Delphi-Quellcode:

bar := TBar.Create;
try
  
  if (something)
  then
    Exit;

finally
  bar.Free; // wird IMMER durchlaufen
end;

[DeddyH]

Was aber so nur bei lokalen Variablen funktioniert

[Sir Rufo]

Zitat von DeddyH:

Was aber so nur bei lokalen Variablen funktioniert

Bei mir funktioniert das auch mit nicht lokalen Variablen.

Du willst aber wohl eher auf dangeling pointers raus.

[DeddyH]

OK, falsch ausgedrückt, ich meinte, dass das nur klappt, wenn die Instanz innerhalb derselben Methode erzeugt und wieder freigegeben werden soll (wo sollte man auch sonst den Ressourcenschutzblock hinsetzen?).

[Monday]

Zitat von Sir Rufo:

Darum nimmt ja auch

Delphi-Quellcode:

bar := TBar.Create;
try
  
  if (something)
  then
    Exit;

finally
  bar.Free; // wird IMMER durchlaufen
end;

Auch beim Exit?? Ich habe das noch nicht probiert. Ich dachte immer finally wird nur durchlaufen bei einem Fehler bzw. grundsätzlich schon wenn es bis zum Ende durchläuft. Und beim Exit wird der rest nicht mehr durchlaufen, auch beim finally?

[DeddyH]

Nicht finally mit except verwechseln. Ein Except-Block wird nur im Falle einer Exception durchlaufen, ein finally-Block hingegen immer.

[jaenicke]

Zitat von Monday:

Und beim Exit wird der rest nicht mehr durchlaufen, auch beim finally?

Der Rest hinter dem finally..end wird nicht durchlaufen, das im finally..end aber schon.

[stahli]

[etwas OT]
Zum finally gab es mal eine längere Diskussion: http://www.delphipraxis.net/160164-f...ewuenscht.html
[/etwas OT]