delphi文字檔案讀寫 (2008-10-31 19:07:22)
delphi 支援三種檔案型別: 文字檔案、記錄檔案、無型別檔案。
文字檔案是以行為單位進行讀、寫的。由於每一行的長度不一定相同，不能計算出給定行在檔案中的確切位置，因而只能順序地讀寫。
文字檔案只能單獨為讀或寫而開啟，在乙個開啟的文字檔案上同時進行讀、寫操作是不允許的。
1.檔案變數與檔名關聯:
assignfile(vartxt, filename);
filename 如果省略路徑將預設當前目錄。
最後用 closefile 關閉檔案。
為保持相容，delphi 也允許使用者用 assign 建立關聯, 用 close 關閉檔案。
function addspace(s: string; n: word): string;
begin
while length(s) < n do
begin
s := s + ' ';
end;
result := s;
end;
varname: string[8];
address: string[16];
begin
assignfile(f, filename);
rewrite(f);
name := '張三';
name := addspace(name,8);
address := '山東泰安';
address := addspace(address,16);
writeln(f, name, address);
name := '李四兒';
name := addspace(name,8);
address := '貴州省安順黃果樹';
address := addspace(address,16);
writeln(f, name, address);
name := '王二麻子';
name := addspace(name,8);
address := addspace(address,16);
writeln(f, name, address);
closefile(f);
end;
//分列讀取
procedure tform1.button6click(sender: tobject);
var name: string[8];
address: string[16];
begin
assignfile(f, filename);
reset(f);
memo1.clear;
while not eof(f) do
begin
readln(f, name);
memo1.lines.add(name);
end;
closefile(f);
reset(f);
while not eof(f) do
begin
readln(f, name, address);
memo1.lines.add(address);
end;
closefile(f);
end;
//不同資料型別的寫入和讀取
procedure tform1.button7click(sender: tobject);
var name: string[6];
age: word;
birthday: tdate;
begin
assignfile(f,filename);
rewrite(f);
name := '菜花 '; //加兩個空格湊夠6個字元
age := 18;
birthday := strtodate(datetostr(now-18*365)); //假如她今天過生日
writeln(f,name,age,birthday);
closefile(f);
reset(f);
readln(f,name,age,birthday);
memo1.clear;
memo1.lines.add(name);
memo1.lines.add(inttostr(age));
memo1.lines.add(datetostr(birthday));
closefile(f);
//其實這樣的東西應該用型別檔案操作更合適, 但如果有這樣的文字檔案讓你讀取呢?
end;
end.
Delphi文字檔案讀寫
delphi 支援三種檔案型別 文字檔案 記錄檔案 無型別檔案。文字檔案是以行為單位進行讀 寫的。由於每一行的長度不一定相同，不能計算出給定行在檔案中的確切位置，因而只能順序地讀寫。文字檔案只能單獨為讀或寫而開啟，在乙個開啟的文字檔案上同時進行讀 寫操作是不允許的。1.檔案變數與檔名關聯 assig...
讀寫文字檔案
讀文字 function readtext filename string string vars string alltext string f textfile begin assignfile f,filename 將c myfile.txt檔案與f變數建立連線，後面可以使用f變數對檔案進行操...
python 讀寫文字檔案
本人最近新學python 用到文字檔案的讀取，經過一番研究，從網上查詢資料，經過測試，總結了一下讀取文字檔案的方法.a f open filename r content f.read decode utf 8 b f codecs.open encoding utf 8 content f.rea...