Textdatei in einen String

[theomega]

Hallo Leute
ich muß eine Textdatei komplett in einen String packen. Bis jetzt habe ich das über eine stringlist (selber created) und loadfromfile gelöst. Ist natrülich nicht so toll.
Jetzt habe ich diesen Code hier konstruiert:

Delphi-Quellcode:

function rf(filename:string):string;
var tf:textfile;
s,s1:string;
begin
assignfile(tf,filename);
reset(tf);
s:='';

repeat
readln(tf,s1);
s:=s+s1;
until eof(tf);

result := s;
end;

Allerdings bin ich mir nicht sicher, ob der Code ideal ist. Es kommt in meinem Programm auch auf speed an, deshalb die Frage!

Danke
TO