GetMem -Funktion geht nicht

[shmia]

Zitat von d3g:

Delphi-Quellcode:

try
  GetMem
  ...
except
  on EOutOfMemory do
    ShowMessage('Out of Memory');
end;

Bitte nicht so (Exception abfangen und ShowMessage aufrufen), sondern:

Delphi-Quellcode:

try
  GetMem
  ...
except
  on EOutOfMemory do
  begin
     // Sinnvolle Fehlermeldung produzieren
     E.Message := E.Message + #13#10'Anlegen der Bilddaten nicht möglich !';

     // Exception erneut auslösen, denn wir wollen ja nicht in den
     // folgenden Code rauschen, wenn kein Speicher mehr vorhanden ist
     Raise;
  end;
end;