Ich bin zurzeit bei einem Programm dabei ein wenig mit Stringlists zu hantieren.
Delphi-Quellcode:
...
var
Form1: TForm1;
sc : TStringlist;
tx : TStringlist;
ms : TStringlist;
...
procedure TForm1.FormShow(Sender: TObject);
begin
sc := TStringlist.Create;
tx := TStringlist.Create;
ms := TStringlist.Create;
end;
...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
sc.free;
tx.Free;
ms.Free;
end;
Dabei ist jedoch beim schließen ein Fehler aufgetaucht: