Forum: Sonstige Fragen zu Delphi
Delphi
by sx2008,
1. Mär 2010
...da bin ich wohl jemand auf den Schlips getreten, sorry.
Ich würde trotzdem die einfache Funktion FileToString() verwenden und Memory Mapped Files nur bei sehr grossen Dateien einsetzen.
Forum: Sonstige Fragen zu Delphi
Delphi
by sx2008,
28. Feb 2010
Hier wird aber Speicher in der doppelten Grösse der Datei verwendet.
Man sollte die Funktion schnell entsorgen bevor sie im Internet immer weiter kopiert wird.
Hier der Ersatz:
function FileToString(const AFileName: string): AnsiString;
var
f: TFileStream;
l: Integer;
begin
Result := '';
f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);