любимые задачи на файлы. Опции

[Haba]

:o Граждане паскальщики, откликнитесь! Помогите решить детскую задачку по файлам, плизз, а то - мне писец... Я, как говорится, не волшебник, а только учусь, так что, если поможете, буду очень благодарен.

Итак:
__________________________________________________________________
Скопировать содержимое одного файла к другому, при условии, что файл не типизированный.
__________________________________________________________________

[trminator]

Пишешь BlockRead и жмешь Ctrl-F1.

Код

{Blockrd.PAS}

{Sample code for the BlockRead and BlockWrite procedures.}

uses WinCrt; // вот это в принципе-то не нужно

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.

[s]

Сообщение отредактировано: trminator - 29.05.2004 16:31