Abort verursacht MemoryLeak ?

[Int3g3r]

Zitat:

.. wenn Du exit anstelle von abort verwenden würdest:

Exit verlässt nur die aktuelle Methode. Beim Beispiel unten würden "erstelleMail" und "sendMail" ausgeführt.
Darum verwende ich abort und nicht exit. Klar könnte ich jede Methode als Funktion schreiben und danach ein true/false zurückgeben. Dann kann ich aber nicht auf mehere Feher in der funktion reagieren.

Delphi-Quellcode:

// Dies ist imaginärer Code nur zum verdeutlichen warum ich Abort verwende:
procedure TForm1.Button1Click(Sender: TObject);
begin
  setParameter;
  erstelleMail;
  sendMail;
end;

procedure TForm1.erstelleMail;
begin
  //Mail Erstellen
end;

procedure TForm1.sendMail;
begin
  //Mail Senden
end;

procedure TForm1.setParameter;
begin
  //Parameter Setzen
  exit;
end;

Zitat:

Fehlerbehandlung mit ShowMessage, dafür sollte man auch gesteinigt werden.

Gehe ich davon aus. Leider Programmiert mein Ausbildner genau so.
Wie mache ich es besser ? Ein Bespiel / Tutorial wäre hilfreich.

Zitat:

wo ist denn z.B. mailListText definiert?
Warum ist das keine lokale Variable?

mailListText ist ein Klassenmember. Benötige ich nur 1x und ich muss von mehreren prozeduren/funktionen innerhalb der Klasse darauf zugreifen können.


Einmal über das Problem schlafen und man findet das Problem in 10 Minuten ....

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
var list: TStringList;
begin
  list := TStringList.Create;
  list.Add('C:\...\bin\Win32\attach\Leaks.PNG');
  list.Add('C:\...\bin\Win32\attach\recompile.PNG');
  list.Add('C:\...\bin\Win32\attach\TelSpick.exe');
  list.Add('C:\...\bin\Win32\attach\Unbenannt.PNG');

  Mail := TMail.Create;
  Mail.sendMassMail('[e-mail]','MassMail',10); //<- Abort

  list.Free; //<- Wird bei Abort nicht mehr Freigegeben ....
end;

Danke für die Hilfe !

Gruss Int3g3r