AssignFile(var F; FileName: string):

AssignFile(var   F;   FileName:   string):  
 调用AssignFile文件初始化一个文件变量(F)。调用AssignFile之后，F就与磁盘上的文件名为FileName的 文件进行关联。当不再对文件操作时请及时关闭文件。

如果文 件已经打开，则不能使用AssignFile。
reset(f);   //打开你所指定的那个文件，打开以后，对文件F的操作就是对磁盘中相应文件的操作。

readln(f,s);//读入f文件的第一行。

    
     函数 assignfile

    1.文本文件新建和读取使用

    在窗体放一个按钮，点击输入

    procedure TForm1.Button1Click(Sender: TObject);
    var
      bat : textfile;
    begin
      assignfile(bat, 'c:\123.txt');  //新建并打开文件
      rewrite(bat); //Rewrite 过程能创建一个新文件并打开它；使用Reset 打开的
                    //文本文件是只写的，使用Rewrite 和Append 打开的文本文件只能写入
      writeln(bat, '1111111111111111');  //写入数据
      closefile(bat); //关闭文件
    end;

    //这样在C盘就新建一个123.txt的文本文件，并写入1111111111111111的数据。

    2.读取文本文件

    procedure TForm1.Button1Click(Sender: TObject);
    var
      bat : textfile;
      s : string;
    begin
      assignfile(bat,'c:\123123.bat');
      reset(bat);
      readln(bat,s);
      memo1.Lines.Add(s);
      closefile(bat);
    end;

    3.多行文本数据

    procedure TForm1.Button1Click(Sender: TObject);
    var
      bat : textfile;
      s : string;
    begin
      assignfile(bat,'c:\123.txt');
      reset(bat); 
      while not eof(bat) do
      begin
      readln(bat,s);
      memo1.Lines.Add(s);
      end;

      closefile(bat);
    end;