delphi AssignFile 总是报错,急!!(100)

  • 主题发起人 主题发起人 ATY
  • 开始时间 开始时间
A

ATY

Unregistered / Unconfirmed
GUEST, unregistred user!
用delphi读取文本,procedure TYwywForm.BitBtn1Click(Sender: TObject);var F: TextFile;begin AssignFile (F,'D:/每日业务要闻/TEST');   Reset(F); ......end;总是报错illegal charter in put file' '($A1A1)请问怎么解决?
 
AssignFile (F,'D:/每日业务要闻/TEST/test.text');  文件名也要带上~~
 
那说明你的文件名给的有问题。
 
你的AssignFile (F,'D:/每日业务要闻/TEST');  的分号后面有两个汉字的全角空格.删除之
 
楼上说的基本正确,是有一个全角空格
 
louemusic 真牛,这都被你看出来了。illegal charter in put file' '($A1A1)错误,应该就是说,非法的字符吧,[:)]
 
你把下面的复制到你的程序中,保证没有错误了!AssignFile(F,'D:/每日业务要闻/TEST.');  
 
后退
顶部