Hilfe mit Access Violation

[okoeller]

Hallo

der Fehler ist behoben.
Der PluginManager wollte ein Package entladen in welchem ein Frame nicht freigesetzt wurde.
Unter finally fehlte der Eintrag FfrmTH.Free.

Dabei wirft sich für mich die nächste Frage auf warum die Variable FfrmTH nicht von Delphi freigegeben wurde.
Um was genau kümmert sich Delphi und um welche Objekte muß ich mich kümmern?

Delphi-Quellcode:

procedure TfrmErstgespraech.ZeigeTexthilfeAn;
var
  TVL : TTextvorlage;
  Titel : string;
  FfrmTH : TFrmTexthilfe;
begin
  try
    TVL := TTextvorlage.Create;
    TVL.Produkt:= FD.Produkt;
    TVL.Kategorie:= pcErstgespraech.ActivePage.Caption;
    FfrmTH := TFrmTexthilfe.Erzeugen(TVL);
    FfrmTH.ShowModal;
    if FfrmTH.ModalResult = mrOK then
    begin
      ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
    end;

  finally
     FfrmTH.Free;
  end;
end;

Oliver

[OldGrumpy]

Grobe Faustregel: Alles was Du selber erzeugst, musst Du auch wieder abräumen. Ausnahmen bestätigen die Regel (z.B. TObjectList, Childcontrols, etc.) :)

[Tyrael Y.]

[OT]

Ein try...finally sollte folgendermassen aufgebaut sein

Delphi-Quellcode:

..
 MyObject := TSomeClass.Create;
 try
   ...
   ...
 finally
   MyObject.Free;
 end;  
..

[/OT]

[okoeller]

Zitat:

Zitat von OldGrumpy

Grobe Faustregel: Alles was Du selber erzeugst, musst Du auch wieder abräumen. Ausnahmen bestätigen die Regel (z.B. TObjectList, Childcontrols, etc.) :)

@OldGrumpy: Das heisst dann wohl dass ich auch TVL.Free setzen muss, da TTextvorlage eine von mir erstellte Klasse ist?

Delphi-Quellcode:

procedure TfrmErstgespraech.ZeigeTexthilfeAn;
var
  TVL : TTextvorlage;
  FfrmTH : TFrmTexthilfe;
begin
   TVL := TTextvorlage.Create;
  try
    TVL.Produkt:= FD.Produkt;
    TVL.Kategorie:= pcErstgespraech.ActivePage.Caption;
    FfrmTH := TFrmTexthilfe.Erzeugen(TVL);
    FfrmTH.ShowModal;
    if FfrmTH.ModalResult = mrOK then
    begin
      ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
    end;
  finally
     FfrmTH.Free;
  end;
  TVL.Free;
end;

Oliver

[Tyrael Y.]

Ja du musst es freigeben.
Guck mal den Code unten an und vergleich mal mit deinem bitte.

So wäre der Umgang mit try...finally richtig.

Delphi-Quellcode:

procedure TfrmErstgespraech.ZeigeTexthilfeAn;
var
  TVL : TTextvorlage;
  FfrmTH : TFrmTexthilfe;
begin
  TVL := TTextvorlage.Create;
  try
    TVL.Produkt:= FD.Produkt;
    TVL.Kategorie:= pcErstgespraech.ActivePage.Caption;
    FfrmTH := TFrmTexthilfe.Erzeugen(TVL);
    try
      FfrmTH.ShowModal;
      if FfrmTH.ModalResult = mrOK then
      begin
        ZeigeTextVorlagenAn(FfrmTH.Textvorlagen);
      end;
    finally
      FfrmTH.Free;
    end;
  finally
    TVL.Free; 
  end;
end;

[SirThornberry]

Zitat:

Zitat von Mikender

...Aber sonst fält mir dazu nix ein :wall: :wall: :wall:

Könntest du solche Kommentaare zukünftig unterlassen? Das hat nichts mit Respekt und gegenseitiger Achtung voreinander zu tun. Wenn der Fragesteller alles wüsste, würde er hier nicht fragen.
Unwissenheit ist nichts schlimmes und sollte nicht mit Demütigung bestraft werden sondern durch ordentliche Hilfe in umgänglichen Formen gemindert werden.

[DeddyH]

Jens, ich glaube, das hast Du falsch verstanden.

Zitat:

Wie wärs mit Nach und nach Teile des Codes zu Kommentalieren
((meine zum Kommentar machen ( mit Strg + #)) Oder wie nennt man das ??)

Aber sonst fält mir dazu nix ein :wall: :wall: :wall:

Ich denke, die Walls bezogen sich auf die Tatsache, dass sich der Postende ärgert, dass ihm außer Auskommentieren keine weiteren Ideen gekommen sind.

[SirThornberry]

oh, wenn das so ist entschuldige ich mich für den Vorworf :oops:
Allerdings zeigt es dan man das ganze wohl durchaus auch missverstehen kann.

[okoeller]

@ SirThornberry: hab das auch so verstanden wie DeddyH.

@Tyrael Y.:
O.K ich sehe den Unterschied, jetzt muß ich nur noch begreifen warum Dein Vorschlag richtiger ist.
Der finally-Block bedeutet doch das sein Inhalt immer ausgeführt wird.
Wenn ich nun beide Objekte(FfrmTH,TVL) vor dem schliessenden end der Prozedur freisetze und auf try verzichte, wird mir im Fehler-Fall eine Fehlermeldung angezeigt, bevor ich das Objekt wieder freisetzten kann.
Verwende ich dageben try ..finally wird der try-Block ausgeführt, aber bei einem Fehler das Objekt freigesetzt und keine Fehlermeldung angezeigt - auch wenn der Fehler in einem anderen Objekt auftritt.
Verstehe ich das so richtig?

Oliver

[DeddyH]

Deshalb nennt man try-finally auch Ressourcenschutzblock. Ein finally wird immer durchlaufen, selbst bei einem exit-Befehl im Block.