如何使用assignfile？

Question

我现在要打开一个文件，路径为c:\123.txt
请问如何使用assignfile这个函数？

Answer 1

var
  f: file;
  s: string;
begin
  AssignFile(f, 'c:\123.txt');
  Reset(f);
  Readln(f, s);    // 读取第一行显示
  ShowMessage(s);
  CloseFile(f);
end;

Answer 2

上面f定义错了，应该是
var
  f: TextFile;

Answer 3

置一下filemode ，0，1 or 2，textfile或是file倒无所谓；
我感觉还是用winapi读方便，最后的尾巴不用自己处理了；（如果blockread的话）

Answer 4

置一下filemode ，0，1 or 2，textfile或是file倒无所谓；
我感觉还是用winapi读方便，最后的尾巴不用自己处理了；（如果blockread的话）

Answer 5

var f : textfile;
    s : string;begin
 assignfile(f,FileName);
 reset(f);
  while not(eof(f)) do
   begin
    readln(s);
{    do somehing }
   end;
end;

Answer 6

更正一下，上面的代码应加一行closefile(f).