Ich lese den Ansistring in etwa so ein:
Die 1. Funktion habe ich mal etwas angepasst.
Möglicherweise gibt es da auch schon was Fertiges.
Delphi-Quellcode:
function LoadFileToString(const FileName: string): AnsiString;
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create(FileName, fmOpenRead);
try
SetLength(Result, FileStream.Size);
if FileStream.Size > 0 then
FileStream.Read(Result[1], FileStream.Size);
finally
FileStream.Free;
end;
end;