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.