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