Das hat mit Glück nichts zu tun es ist immer so.
Ist es nicht! Lass mal dieses Programm laufen. Gerne auch mal mit DEBUG und RELEASE spielen und mal mit und ohne Debugger laufen lassen.
Delphi-Quellcode:
Program Project634;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
System.Classes;
procedure TestList;
var
List: TStringList;
begin
if List =
nil then
Writeln('
List = nil')
else
Writeln('
List <> nil');
end;
procedure SetList();
var
List: TStringList;
begin
List := TStringList.Create;
try
finally
List.Free;
end;
end;
procedure ClearList();
var
List: TStringList;
begin
List :=
nil;
end;
procedure Main();
begin
TestList;
SetList;
TestList;
ClearList;
TestList;
end;
begin
try
Main;
except
on E:
Exception do
Writeln(E.ClassName, '
: ', E.
Message);
end;
Readln;
end.