小妹求求各位帮个忙,问题简单!!!!

jiangjiangao 2004-04-30 05:33:35
procedure TForm1.Button1Click(Sender: TObject);
var
xfile:textfile;
s:string;
begin
assignfile(xfile,'d:\a.txt');
rewrite(xfile);
s:='nihao';
write(xfile,s);
end;
可以通过运行
但是可我单击Button1时d:\a.txt中并未添加什么东西
请问我的问题出在哪里?
如果要实现我的功能(单击Button1时在d:\a.txt中添加字符串)该怎么写
...全文
9 6 点赞 打赏 收藏 举报
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
huiwww 2004-05-04
加上
closefile(xfile)
这样才能真正的将数据写入文件
  • 打赏
  • 举报
回复
hsmserver 2004-05-04
加上
closefile(xfile)
就沾了
  • 打赏
  • 举报
回复
tanyun1111 2004-05-04
他们说的对
帮你
up
  • 打赏
  • 举报
回复
sweig0721 2004-05-04
但是泡美女要分呀!
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
HTextFile: TextFile;
FileName: String;
WriteStr: String;
begin
FileName := 'd:\test.txt';
WriteStr := '技术不分性别';
AssignFile(HTextFile,FileName);
ReWrite(HTextFile);
WriteLn(HTextFile,WriteStr);
CloseFile(HTextFile);
end;
  • 打赏
  • 举报
回复
jinjazz 2004-04-30
procedure TForm1.Button1Click(Sender: TObject);
var
xfile:textfile;
s:string;
begin
assignfile(xfile,'d:\a.txt');
rewrite(xfile);
s:='nihao';
write(xfile,s);
closefile(xfile)----------->>>
end;
  • 打赏
  • 举报
回复
相关推荐
发帖
Delphi
加入

4969

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-04-30 05:33
社区公告
暂无公告