файлы - Дан файл произвольного типа. Создать его копию с новым именем.

[RDK.123]

Дан файл произвольного типа. Создать его копию с новым именем


помогите, срочно надо

var 
FromF, ToF: file; 
NumRead, NumWritten: Word; 
Buf: array [1..100] of Char; 

begin 
Assign(FromF, 'data1.dat'); 
Reset(FromF, 1); 
Assign(ToF, 'data2.dat'); 
Rewrite(ToF, 1); 

repeat 
BlockRead(FromF, Buf, SizeOf(Buf), NumRead); 
BlockWrite(ToF, Buf, NumRead, NumWritten) 
until (NumRead = 0) or (NumWritten <> NumRead); 

Close(FromF); 
Close(ToF) 
end.

может здесь исправите что то

[Stilet]

Может.

var 
FromF, ToF: file; 
NumRead, NumWritten: Word; 
Buf: array of Char; 

begin 
Assign(FromF, 'data1.dat');Reset(FromF, 1); 
Assign(ToF, 'data2.dat');   Rewrite(ToF, 1); 

NumRead:=Filesize(f);getmem(buf,NumRead);

BlockRead(FromF, Buf, NumRead, NumRead); 
BlockWrite(ToF, Buf, NumRead, NumWritten) 

Freemem(buf);

Close(FromF); 
Close(ToF) 
end.

Не проверял.

[cyber_NINJA]

while(not eof(FromF)) do
Begin
BlockRead(FromF, Buf, SizeOf(Buf));
BlockWrite(ToF, Buf, NumRead)
End;

[RDK.123]

не работает

можете все сначала сделать? у меня она вообще не работает почему то

[Stilet]

Так может попробовать разобраться почему не работает?

[Serge_Bliznykov]

RDK.123, код из пост #1 я проверил (TurboPascal 7.x) - он АБСОЛЮТНО РАБОЧИЙ!!
(а ещё бы он был не рабочий, если он взят из встроенного хелпа ТурбоПаскаля - найдите 10 отличий:

program CopyFile;
{ Simple, fast file copy program with NO error-checking }
var
  FromF, ToF: file;
  NumRead, NumWritten: Word;
  Buf: array[1..2048] of Char;
begin
  Assign(FromF, ParamStr(1)); { Open input file }
  Reset(FromF, 1);  { Record size = 1 }
  Assign(ToF, ParamStr(2)); { Open output file }
  Rewrite(ToF, 1);  { Record size = 1 }
  Writeln('Copying ', FileSize(FromF), ' bytes...');
  repeat
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
    BlockWrite(ToF, Buf, NumRead, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  Close(FromF);
  Close(ToF);
end.