Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

Re: TStringList Freigeben erzeugt Exception

  Alt 13. Mai 2008, 14:25
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
  Mit Zitat antworten Zitat