新手问,怎样打开一个文件,并向里写入内容?(5分)

  • 主题发起人 主题发起人 smale
  • 开始时间 开始时间
S

smale

Unregistered / Unconfirmed
GUEST, unregistred user!
请问我建立了一个txt文件,怎样才能向里写入内容,用什么函数?
 
是不是应该先打开一个文件,把他付给一个变量,这个语句应该怎么写
 
procedure Tform1.button1click(sender:tobject);
var
myfile:textfile;
begin
assignfile(myfile,'yourfile.txt');
rewrite(myfile);
writeln(myfile,'XXXXXXXXXXXXX');
close(myfile);
end;
你自己试试吧!给得分太少,我也懒得再查了。
 
接受答案了.
 
后退
顶部