一个有难度的文件读取问题,高手救命啊

Question

现在我要从a.txt中  读取全部的内容,但是问题是现在这个是可能中间有#0,所以不能用读字符串的方式,我想请高手帮忙写一个完成的程序,读出来的内容放在char[]数组中,
请高手帮我写一个 ,具体一点的,因为我对DELPHI不是很懂啊

Answer 1

我的文本中是这样的:11#011procedure TForm1.Button1Click(Sender: TObject);
var
    s:string ;
    f:textfile ;
begin
    assignfile(f,'c:\1.txt');
    reset(f);
    readln(f,s);
    label1.Caption :=s;
    closefile(f);
end;
 
显示出来也是11#011,哪里有问题?