TStringList Freigeben erzeugt Exception

[p80286]

Hallo Ansgar,

ich möchte Dir nicht zu nahe treten, aber da stimmt etwas nicht! Ich habe Deinen Code etwas anders formuliert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  ll : tstringlist;
begin
  ll:=tstringlist.Create;
  ll.add('Test');
  ll.free;
  ll:=nil;
end;

Das funktioniert problemlos nur wird ll:=nil vom debugger ignoriert, was ja nichts macht da ll nach dem end; sowieso im Orkus verschwindet. Meiner Meinung nach hast Du Dir irgendwelche nicht offensichtlichen Seiteneffekte eingehandelt.

Gruß K-H