这个readln读取txt一行时，为什么总是说incompatible type？

Question

先用FileExists(sfile)判断一下文件是否存在吧!

Answer 1

File 是一种二进制文件，不能按行读取。
如果使用文本文件，最好改成：
procedure Tform1.create(send:Tobject);
var 
  ss :string;
  tid: textfile;
begin
  assignfile(tid,'user.txt');
  reset(tid);
  while not eof(tid) do  
    readln(tid,ss);
end; 

Answer 2

来晚了，应该是textfile类型的file才对～～