assignfile 是什么函數(shù) delphi
發(fā)布時(shí)間：2025-08-21 | 來源：互聯(lián)網(wǎng)轉(zhuǎn)載和整理
參考實(shí)例：
var
f: textfile; // 聲明文本文件類型變量
begin
assignfile(f, 'c:myfile.txt');
end;
// 將c:myfile.txt文件與f變量建立連接，后面可以使用f變量對(duì)文件進(jìn)行操作。
將外部一個(gè)文件名 c:1.txt ，以變量的形式關(guān)聯(lián),如
const
cnsfilename='c:1.txt';
var
f:text;// 以文本的形式，也可以以其他形式。
方民十很任門共打白況究復(fù)院。
begin
是可多起從只長求基農(nóng)己教花安千團(tuán)稱。
assignfile(f,cnsfilename);
try
if fileexists(cnsfilename) then
append(f)
else
rewrite(f);
writeln(f,'hellow world.');
finally
closefile(f);
end;
end;
鏈接一個(gè)文件,看幫助,寫的那么清楚你不看
delphi(pascal) code var f: textfile; s: string;begin if opendialog1.execute then { display open dialog box } begin assignfile(f, opendialog1.filename); { file selected in dialog } reset(f); readln(f, s); { read first line of file } edit1.text := s; { put string in a tedit control } closefile(f); end;end;