Fehlertoleranz DELPHI, TEIL #2

[sx2008]

Mal unabhängig von der Ursachenforschung; die korrekte Funktion sieht so aus:

Delphi-Quellcode:

function LoadStringFromFile(const Filename: string):AnsiString;
var
  fs: TFileStream;
begin
  fs := TFileStream.Create (Filename, fmOpenRead or fmShareDenyNone);
  try
    SetLength(Result, fs.Size);
    if fs.size>0 then
      fs.ReadBuffer(Result[1], Length(Result));
  finally
    fs.Free;
  end;
end;

Als Funktion lässt sich der Code im Gegensatz zur Prozedur aus dem 1. Beitrag flexibler einsetzen.