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;