当前位置: 代码迷 >> Delphi >> 资料读写例子不知道错在哪里
  详细解决方案

资料读写例子不知道错在哪里

热度:4904   发布时间:2013-02-25 00:00:00.0
文件读写例子不知道错在哪里?
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
FileName1='c:\test1.txt';
FileName2='c:\test2.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.


while not eof(F1)do是不是死循环啊?
------解决方案--------------------------------------------------------
uses 
  SysUtils; 
const 
FileName1='c:\test1.txt'; 
FileName2='c:\test2.txt'; 
var 
F1,F2:TextFile; 
S:string; 
begin 
AssignFile(F1,FileName1); 
AssignFile(F2,FileName2); 
Rewrite(F2); 
Writeln(F2,'Hello'); 
Reset(F1)
while not eof(F1)do 
    begin 
    Readln(F1,S); 
    Writeln(F2,S); 
    end; 
CloseFile(F1); 
CloseFile(F2); 
end. 
------解决方案--------------------------------------------------------
UP
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Wed Dec 13 03:36:32 CST 2017
  • 最近登录:Wed Dec 13 03:36:32 CST 2017
  • 最近登录:Wed Dec 13 03:36:32 CST 2017
  • 最近登录:Wed Dec 13 03:36:32 CST 2017
  • 最近登录:Wed Dec 13 03:36:32 CST 2017