Born, вот тебе пример функции, на функциях, которые ты предложил
Код
function FileToString(nf:string):string;
var
FromF: File;
NumRead: Integer;
buf: Array[1..2560] of Char;
tmp: string;
begin
tmp:='';
AssignFile(FromF, nf);
Reset(FromF, 1);
while not eof(FromF) do
begin
filemode:=0;
BlockRead(FromF, buf, 2560, numread);
filemode:=2;
tmp:=tmp+copy(buf, 1, numread);
end;
closefile(FromF);
result:=tmp;
end;
для джойнера может пригодиться