参考实例:
var
f: textfile; // 声明文本文件类型变量
begin
assignfile(f, 'c:myfile.txt');
end;
// 将c:myfile.txt文件与f变量建立连接,后面可以使用f变量对文件进行操作。
将外部一个文件名 c:1.txt ,以变量的形式关联,如
const
cnsfilename='c:1.txt';
var
f:text;// 以文本的形式,也可以以其他形式。
方民十很任门共打白况究复院。
begin
是可多起从只长求基农己教花安千团称。
assignfile(f,cnsfilename);
try
if fileexists(cnsfilename) then
append(f)
else
rewrite(f);
writeln(f,'hellow world.');
finally
closefile(f);
end;
end;
链接一个文件,看帮助,写的那么清楚你不看
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;
免责声明:本站文字信息和图片素材来源于互联网,仅用于学习参考,如内容侵权与违规,请联系我们进行删除,我们将在三个工作日内处理。联系邮箱:chuangshanghai#qq.com(把#换成@)