Anbei mal ein simples Codebeispiel mit einem Fatalen Bug
Delphi-Quellcode:
TDataClass = class (...)
.....
end;
TForm1 = class(TForm)
aDataClass : TDataClass;
end;
TForm2 = class(TForm)
bDataClass : TDataClass;
end;
procedure aForm1.Doit (....);
begin
try
aForm2.Create(...)
aDataClass := aForm2.bdataclass; // gemeinsame Daten :-)
finally
aForm2.Free
end;
aDataClass.Auswerten(...);
end;
aDataClass.Auswerten(...); ist je eigentlich
nil nachdem ich aForm2.Free
ausgeführt habe. Trotzdem ging bei mir der Aufruf oft gut ( .... >> 100 x ), vermutlich war der Speicher noch nicht überschrieben , aber halt nicht immer.
Den Fehler haben wir erst nach langer Suche entdeckt, weil der Code ja eigentlich gemacht hat was er sollte und dort hat niemend einen Fehler mehr vermutet.
Kann ich mein Projekt so coompilieren eine strenge Speicherverwaltung erzwingen damit solche Fehler schnell auffallen ?