delphi 讀寫文本檔案

需要兩個按鈕和兩個Richedit控件,采用預設名稱即可.

procedure TForm1.Button1Click(Sender: TObject);  //寫檔案

var wText: TextFile;

begin

  AssignFile(wText, 'ip.txt');

  Rewrite(wText);//建立檔案，或者使用ReSet打開檔案

  Writeln(wText, richedit1.text);

  CloseFile(wText);

end;

procedure TForm1.Button2Click(Sender: TObject);  //讀檔案

var rText: TextFile;

    tmp:String;

begin

  richedit2.Clear;//清除原來的内容

  AssignFile(rText, 'ip.txt');

  reset(rText);

  while not EOF(rText) do

  begin

    readln(rText,tmp);

    richedit2.Lines.Add(tmp);

  end;

  closefile(rText);

end; 

相關知識内容:

    在對文本檔案進行任何處理之前，首先要打開此文本檔案。聲明變量：通過此變量可以來引用一個文本檔案。

    打開一個檔案需要兩步：首先是 AssignFile(),它可以将檔案變量與一個檔案關聯起來。例如：這時，你可以進行第二步：打開檔案。有三種方式打開檔案：使用R e w r i t e ( )過程建立并打開檔案；對于一個已存在的檔案，此操作将使檔案被覆寫；使用R e s e t ( )過程隻讀地打開一個檔案；使用Append() 過程向已存在的檔案追加文本。

    注意Reset()将以可讀寫方式打開類型檔案和無類型檔案。可以使用CloseFile()來關閉一個已打開的檔案。

    下面是各種調用的函數:

    檔案的打開與關閉：

     AssignFile：把一個外部檔案名和一個檔案變量相關聯

     Reset：打開一個存在的檔案

     Rewrite：建立并打開一個新檔案（或覆寫原有檔案）

     Append ：以添加方式打開一個檔案（隻适用于文本檔案）

     CloseFile：關閉一個打開的檔案

     FileOpen：打開一個特定的檔案并傳回檔案句柄

     FileCreate：建立一個給定檔案名的檔案并傳回檔案句柄

     FileClose：關閉一個特定句柄的檔案

     後邊三個檔案主要供系統内部使用，在檔案複制的程式設計中也往往會用到。它們操作的對象是檔案句柄而不是檔案變量。

    檔案定位：

     Seek：把檔案目前位置移到指定部分

     FilePos：傳回檔案的目前位置

     Eoln：傳回行結束标志

     EOF：傳回檔案結束标志

     FileSeek：改變目前檔案指針的位置