Bestimmter Text in Datei -> Text ändern -> Stream Lesefehler

[Die Muhkuh]

Hi,

habs jetzt so gebaut:

Delphi-Quellcode:

function TfDoc.ReadStringFromStream(F: TStream): string;
var
  aStrLen: Integer;
  Len: Cardinal;
begin
  Len := F.Size;
  F.ReadBuffer(aStrLen, Len);
  SetLength(Result, aStrLen);
  if aStrLen > 0 then
    F.ReadBuffer(Result[1], aStrLen);
end;

Jetzt stürzt das Programm ohne irgendeine Fehlermeldung ab. Geht einfach zu.

[edit]
Wenn du editiert, dann mach ich das auch . Wenn ich das wieder so schreibe:

Delphi-Quellcode:

function TfDoc.ReadStringFromStream(F: TStream): string;
var
  aStrLen: Integer;
begin
  F.ReadBuffer(aStrLen, SizeOf(Integer));
  SetLength(Result, aStrLen);
  if aStrLen > 0 then
    F.ReadBuffer(Result[1], aStrLen);
end;

Gehts zwar immernoch nicht, aber es kommt wieder der Stream-Lesefehler

[/edit]