delphi 读写txt文件的问题

abhw0381 2008-08-30 09:59:42

procedure tform1.NewTxt(filename:string);
Var
 F : Textfile;
begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
 AssignFile(F, FileName); {将文件名与变量 F 关联}
 ReWrite(F); {创建一个新的文件并命名为 ek.txt}
 Writeln(F, '将您要写入的文本写入到一个 .txt 文件');
 Closefile(F); {关闭文件 F}
end;
编译到"F : Textfile;"时出现错误.
错误提示是:[Error] Unit1.pas(30): Illegal character in input file: ' ' ($A1A1)


请问各位,是什么原因呀?
...全文
135 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
OverNight 2008-08-30
  • 打赏
  • 举报
回复
建议:

procedure tform1.NewTxt(filename:string);
begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
 AssignFile(Input, FileName);
 ReWrite(Input);
 Writeln( '将您要写入的文本写入到一个 .txt 文件');
 Closefile(Input); {关闭文件}
end;
JeffChung 2008-08-30
  • 打赏
  • 举报
回复
非法字符,大概是从网页上copy过来的.把它删除掉重新敲一遍.注意空格也要删除

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧