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)
请问各位,是什么原因呀?
解决方案 »
- ShellExecute返回错误值,为什么GetLastError返回0
- 很奇怪的现象,在动态窗体显示的时候,看不见控件
- 能否向函数或者过程传递控件??
- 如何让dbgrid总是有一行空白的行? 用于方便操作,用户不必按"方向键下"就可以操作一条新的记录 。谁能想出最简单的实现方法
- 关于FAQ
- 帮我解决一个问题好吗(在线等待。
- ★★乱散100分啦!★★喜欢用yahoo通(yahoo messanger)的朋友近来报道啊!不管是初学者还是大虾都来吧!
- 这是什么病毒?其启动怎么在MsConfig删除不了的?
- 程序是中文的,可以在日文的 WINDOWS 98 上正常显示 , 及运行吗 ?
- DELPH6开发WEB APPLICATION?
- 请问谁有DEPHI6的皮肤控件?
- Delphi 控制摄像头时,用鼠标拖动窗体怎么会很慢,,怎么解决!
begin
if fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就刪除}
AssignFile(Input, FileName);
ReWrite(Input);
Writeln( '将您要写入的文本写入到一个 .txt 文件');
Closefile(Input); {关闭文件}
end;