Zitat von
Borti:
Der Punkt, der mich am meisten beschäftigt, ist der Schutz von TStrings. Die Methode TStringList.create soll ja immer über try...finally geschützt werden, was aber bei meinem Programm nicht möglich ist, da ich TStringList.create im Event Form1.OnCreate und TStrings free im Event Form1.OnClose aufrufe:
Code:
var s:TStrings;
procedure TForm1.FormCreate(Sender: TObject);
begin
try
s:=TStringList.Create;
except
showmessage('s konnte nicht erzeugt werden.');
s.Free;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
s.Free;
end;
geht das so, wie ich’s gemacht habe auch in Ordnung?
Nein, richtig wäre:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
FSListe:=TStringList.Create;
// die Stringliste wurde erzeugt, oder falls nicht wird eine EOutOfMemory Exception "geworfen"
// eine Behandlung dieser Exception an dieser Stelle wäre kontraproduktiv
FMybitmap := TBitmap.Create;
end;
// Was in FormCreate erzeugt wurde muss in FormDestroy wieder vernichtet werden
// am Besten hält man dabei die umgekehrte Reihenfolge ein
procedure TForm1.FormDestroy(Sender: TObject);
begin
FMyBitmap.Free;
FSListe.Free;
end;
Zu beachten ist, dass FSListe ein private Variable des Formulars ist.
Sollte die StringListe eine globale Variable sein (was man vermeiden sollte) gelten
andere Regeln.