function FileToString(const AFilename: string; StartPos: Integer=0; EndPos: Integer=0): string;
var
* FileStream : TFileStream;
* wlCount: Integer;
begin
* if FileExists(AFilename) then
* begin
* * if StartPos < 0 then
* * * StartPos := 0;
* * FileStream := TFileStream.Create(AFilename, fmOpenRead or fmShareDenyWrite);
* * try
* * * if (EndPos <= StartPos) or (EndPos > FileStream.Size) then
* * * * EndPos := FileStream.Size;
* * * wlCount := EndPos - StartPos;
* * * if FileStream.Size > StartPos then
* * * begin
* * * * SetLength(Result, wlCount);
* * * * FileStream.Seek(StartPos, soFromBeginning);
* * * * FileStream.Read(Result[1], wlCount);
* * * end;
* * finally
* * * FileStream.Free;
* * end;
* end
* else
* * Result := '';
end;
Sowas zb finde ich bisher immer, ich denke allerdings nicht, dass ich das ganze zeugs benötige und vor einigen nocht verstehe.
