现在的位置: 首页 > 综合 > 正文

delphi笔记:txt读写

2013年02月18日 ⁄ 综合 ⁄ 共 315字 ⁄ 字号 评论关闭
程序员最喜欢的衬衫

procedure TForm1.Button1Click(Sender: TObject);
var
txtf:textfile;
batf:string;
data:string;
begin
    batf:='new.txt';
    data:='abcdeftt';

    if  fileexists(batf) then deletefile(batf); //如果存在,则删除
    assignfile(txtf,batf);  //打开
    rewrite(txtf);          //新建
    writeln(txtf,data);     //写入数据
    closefile(txtf);        //关闭文件

end;

 

 

笔记

抱歉!评论已关闭.