program Project2;{$APPTYPE CONSOLE}uses
SysUtils;
const
filename1='c:\11.txt';
filename2='c:\22.txt';
var
f1,f2:textfile;
s:string;begin
assignfile(f1,filename1);
assignfile(f2,filename2);
rewrite(f2);
while not Eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
closefile(f1);
closefile(f2);
end.
调试的时候,老跳出如标题似的错误框
SysUtils;
const
filename1='c:\11.txt';
filename2='c:\22.txt';
var
f1,f2:textfile;
s:string;begin
assignfile(f1,filename1);
assignfile(f2,filename2);
rewrite(f2);
while not Eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
closefile(f1);
closefile(f2);
end.
调试的时候,老跳出如标题似的错误框
解决方案 »
- 读取DB数据库的问题
- delphi中如何才能使用http传输exe文件呢???
- 想实现下面的效果,不知道改怎么写,很菜的问题帮忙看看?
- 先看分数再看问题!!(分数不够可以另加)
- 有关反利用GHOST进行盗版的问题
- 再请教一个存储过程的条件判断问题
- 急,在线等,请问如何得到文件的大小,与句柄
- 请问spcomm控件能不能用红外线发红数据?
- 一个网络下载中网址的问题。
- 怎样给用Rave设计好的RvProject1\report1\page1\中的Text Component的text属性赋值?在线等待,立即结贴!
- Delphi 的什么类型的数据需要Free.
- 谁有1STCLASS3000发给我一个吧,200分相赠
SysUtils;
const
filename1='c:\11.txt';
filename2='c:\22.txt';
var
f1,f2:textfile;
s:string;begin
assignfile(f1,filename1);
assignfile(f2,filename2);
rewrite(f2);
writeln(f2,'hello');
while not Eof(f1) do
begin
readln(f1,s);
writeln(f2,s);
end;
closefile(f1);
closefile(f2);
end.