Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
Delphi 12 Athens
|
AW: Zugriffsverletzung beim Zerstören der TIniFile-Instanz
28. Jan 2021, 11:20
Free prüft selbst ob die Variable bereits nil ist, dann passiert nichts.
TObject(nil).Free; // läuft problemlos
Das ist falsch. Korrigiert mich bitte, wenn es nach Version Delphi 10.1 anders sein sollte.
Läuft auch unter 10.1 problemlos!
Delphi-Quellcode:
program Project769;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
begin
try
TObject( nil).Free;
Writeln(' Geht doch');
except
on E: Exception do
Writeln(E.ClassName, ' : ', E. Message);
end;
Readln;
end.
|