TFileStream对读入的文件大小有限制，如何突破？

Question

你的文件有多大？我用它读过700M的电影。—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

是打卡机的文件， 我在编完程序后（其实就是把我的名字加入到记录文件中因为我很长时间没打卡）：）
运行后，读入的文件长度好像是只有6字节，后来我把那个原始记录文件拷出一部分来，程序不变再运行就OK了， 看来只能是因为原始文件太大了。
具休多大，我记得不是很准确了，不过应有几百K 吧，好几个月的记录哦。

Answer 2

好几个月的记录有几百M？你有没有搞错？
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————