var
filename:Textfile;
s:string;
begin
s:='i love china';
assignfile(filename,'c:\a.txt');
rewrite(filename);
writeln(filename,s);
执行后在c盘生成了a.txt文件,但是没有写入内容,查了下delphi的帮助,看了下好像没错误,请高手指教。。谢谢
对TextFile进行操作后,必须关闭:FileClose(FiemName);
否则,数据丢失.因为,AssignFile操作文件时,是在缓存中操作的,并未真正写入到文件中去.
write的应用面广泛一些,适应各种格式。
writeln一般用在文本文件中按行写入,后面会添加一个分行符的。
DebugN多变量都是没法显示值???? 不会啊
如果是直接要在窗体背景上面写字的话
Self.Caption:=Self.Caption+#13+ 'dfaasfa' //最后一个是变量
不过建议拖一个memo出来 用Memo1.Strings.add('')
Form程序需要创建Console才能WriteLn
可以用Windows的一个API代替WriteLn:
OutputDebugString
挺好用的
运行的时候,打开Delphi的菜单
View|Debug|Event Log
就可以看到它的输出,