Question

delphi如何读取任何文件

我读取某些文件时8K的，只能读56B就自动停止了，这是怎么回事？
源代码：
readln(key);
readln(x);

assign(input,'in.txt');
assign(output,'out.txt');
reset(input);

fil_s:='';
repeat
read(sl);
fil_s:=fil_s+sl;
until eof(input);
close(input);
我看了网上的读取的代码，看不懂……
能不能写一个代码给我，最好有注释；要求：把读入的文件存入fil_s:ansistring;中

Answer 1

纯手打的,不正确的话,自己调试一下.
原理:利用Tstringlist的导入文件然后赋值给变量!
var
Filelist:tstringlist;
Fil:ansistring;
begin
FileList;=tstringlist.create;
FilsList.LoadFromFile('in.txt');
Fil:=FileList.Text;
FileList.Free;
Showmessage(Fil);
end;