тема Файлы

[натали73]

Совсем запуталась, может кто объяснит как решить задачу?Описать процедуру ConcatFile(NameA,NameB,NameAB), позволяющую объединить содержимое двух двоичных файлов NameA и NameB одного и того же типа в новом файле NameAB. Использовать процедуры BlockRead и BlockWrite. Применить эту процедуру к парам исходных файлов Name1–Name2, Name1–Name3 и Name2–Name3, создав файлы с именами Name12, Name13, Name23

[Serge_Bliznykov]

так в условии недостаточно исходных данных.
Не сказано по какому принципу объединять содержимое файлов.
Полностью 1-й файл, потом полностью 2-й файл?
Или сначала содержимое 2-го файла, потом содержимое - 1го файла?
или они должны вообще поэлементно чередоваться (элемент из 1-го файла, за ним элемент 2-го, потом следующий элемент из первого, потом из второго и т.д. до тех пор, пока файлы не кончатся)?!

а так задачка несложная.. посмотрите любой пример на использование BlockRead/BlockWrite - поймёте, как написать свою программку...

[натали73]

Вот и вам не совсем понятно,а что говорить про меня....Конечно надеялась хоть какое то решение увидеть,но...За внимание спасибо.

[Stilet]

Скорее всего так:

  procedure ConcatFile(NameA,NameB,NameAB:String);
  var q,w,e:file;  arr:pointer;sz:integer;
    begin
      Assign(q,NameA);reset(q);
      Assign(w,NameB);reset(w);
      Assign(e,NameAB);rewrite(e);
      sz:=FileSize(q);  arr:=GetMem(sz);  BlockRead(q,arr,sz); BlockWrite(e,arr,sz); Dispose(arr);
      sz:=FileSize(w);  arr:=GetMem(sz);  BlockRead(w,arr,sz); BlockWrite(e,arr,sz); Dispose(arr);
      Close(q);Close(w);Close(e);
    end;

[натали73]

Спасибо Вам преогромнейшее,вы мой спаситель.

[Stilet]

Пожалуйста.