var
FileText :TextFile;
begin
AssignFile(FileText,'a.txt');
rewrite(FileText);
WriteLn(FileText,'数据');
CloseFile(FileText);
end;
具体的你再变通一下就可以了
FileText :TextFile;
begin
AssignFile(FileText,'a.txt');
rewrite(FileText);
WriteLn(FileText,'数据');
CloseFile(FileText);
end;
具体的你再变通一下就可以了
解决方案 »
- 谁来帮我找出这个错误
- SQL的脚本语言如何在前端执行
- 请用delphi开发网站或开发webservice的朋友请进来一下。谢谢!
- 杭州哪里有买李维的<inside vcl>的?有谁知道吗?
- 在delphi里,变量之间如何命名?
- 怎么连ACCESS数据库
- ★★这是什么错误啊?★★
- 用delphi如何实现把一个数据表中的数据转移到另一个数据表中?(小鸟学飞)
- actionlist组件怎么用?偶吧imagelist和toolbar,actionlist连载了一起,但actionlist里面的图标都是copy,paste之类的,难道偶必须在imagelist里加入自己的图标吗?//牛虻
- Midas的demo程序为什么不能在两台机子上运行
- sql语句不会写,求助!
- delphi 5 中如何处理字符串型和整型的处理?
sFile :String;
tFile :TextFile;
begin
sFile := 'C:\a.txt';
AssignFile(FileText,sFile);
if FileExists(sFile) then
Append(tFile)
else
ReWrite(tFile);
WriteLn(tFile,'增加数据');
CloseFile(tFile);
end;