delphi讀寫文字檔案
procedureTForm1.Button1Click(Sender: TObject); //寫檔案
var wText:TextFile;
begin
AssignFile(wText, 'ip.txt');
Rewrite(wText);//建立檔案,或者使用ReSet開啟檔案
Writeln(wText, richedit1.text);
CloseFile(wText);
end;
procedureTForm1.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 ew 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:改變當前檔案指標的位置