Probleme mit TStrings/TStringlist beim Freigeben

[oki]

Hi Muetze1,

Du hast recht wenn alles so geht wie soll. Meine Erfahrungen sind aber folgende:

- Free setzt Variable nicht auf nil,
- If Assigned() liefert nach Free True,

Nun probier mal folgendes aus:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var O : TObject;
begin
  O.free;
end;

Und die Exception läßt grüßen.

gruß oki