Ich dachte du suchst eine Funktion die den Speicherverbrauch anzeigt?
Das mit dem OutOfMemory... wieso fängst du den nicht ab und wenn er auftritt, brichst du die aktuelle Funktion ab?
Delphi-Quellcode:
for i := 0 to 100 do
begin
try
tueirgendetwas;
except
on E: EOutOfMemory // <===========
begin // <===========
Break; // <===========
end; // <===========
end;
end;
Ich weiß nicht, ob man das so macht, aber was anderes fällt mir nicht ein.