Problem mit Stringlists (.free)

**florpp**

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:

Problem mit Stringlists (.free)

Problem mit Stringlists (.free)

Forumregeln