Code: Alles auswählen
var
pint: PInteger;
begin
pint := new(PInteger);
// ---
Dispose(pint); // Ist in fremden Code daher habe ich keinen Einfluss
// ---
if not Freigegeben(pint) then begin
Dispose(pint);
end;
Code: Alles auswählen
Dispose(pint);
pint := nil;
Es geht mit um den hier festgestellten Bug.
viewtopic.php?f=19&t=14305