EOutOfMemory

[Die Muhkuh]

Hi,

ich bekomme bei diesem Code eine EOutOfMemory-Exception:

Delphi-Quellcode:

 
function TfDoc.ReadStringFromStream(F: TStream): string;
var
  aStrLen: Integer;
begin
  F.ReadBuffer(aStrLen, SizeOf(Integer));
  SetLength(Result, aStrLen);  //<<< Da kommt ein Fehler
  if aStrLen > 0 then
    F.ReadBuffer(Pointer(Result)^, aStrLen);
end;

{Procedure blablabla}

     ReadStringFromStream(aStream);
      FName := ReadStringFromStream(aStream);
      if FName <> ExtractFileName(FileName) then
      begin
        MessageBox(Handle,
          'Der Dateiname wurde seit dem letzten Speichern verändert.',
          'Hinweis', MB_OK);

        Modified := true;
        IsMod := true;
      end
      else
        IsMod := false;
      FAuthor := ReadStringFromStream(aStream);
      FDate := ReadStringFromStream(aStream);
      FComment := ReadStringFromStream(aStream);
      Temp := ReadStringFromStream(aStream);
      aSStream := TStringStream.Create(Temp);
      case FEditor of
        etRichText: RichEdit.Lines.LoadFromStream(aSStream);
        etCode: Code.Lines.LoadFromStream(aSStream);
      end;

      FIsDC := true;

Weis jemand warum?

[tommie-lie]

Schonmal im Debugger überprüft, wie groß aStrLen nach dem Einlesen ist?

[Die Muhkuh]

Hi,

ich glaube es lag an dem Dokument das ich geladen habe. Ich hab jetzt mal ein anderes geladen, dort gings auf Anhieb.

In welchem Fall tritt diese Fehlermeldung auf?

[dizzy]

Wenn in aStrLen eine Zahl > High(Integer) steht. Für gewöhnlich wären das dann (als Integer gesehen) negative Werte, die dann umklappen dürften.
Ein Prozess darf imho nicht mehr als 2GB allozieren.

\\edit: Probier mal "SetLength(Array, -1);"
Mich würde mal interessieren was dabei raus kommt. (Hab grad kein Delphi zur Hand)

[tommie-lie]

Zitat:

Zitat von Spider

In welchem Fall tritt diese Fehlermeldung auf?

Was ist denn an "Out of Memory" so schwer zu verstehen? Wenn du mehr Speicher allokieren willst als dir zur Verfügung steht (inklusive Paging).

Zitat:

Zitat von dizzy

\\edit: Probier mal "SetLength(Array, -1);"
Mich würde mal interessieren was dabei raus kommt. (Hab grad kein Delphi zur Hand)

ERangeError

[dizzy]

Zitat:

Zitat von tommie-lie

ERangeError

Na gut :stupid:

Aber auch wenn man's ohne Bereichsprüfung kompiliert!? Und evtl. dann auch mal mit einer Variablen:

Delphi-Quellcode:

var
  i: Integer;
begin
  i := -1;
  SetLength(Array, i);
end;

:?:

[tommie-lie]

Zitat:

Zitat von dizzy

Aber auch wenn man's ohne Bereichsprüfung kompiliert!?

Ich habe es ohne Range-Checking kompiliert ;-)