1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

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;