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：改變當前文件指針的位置