|
Левая информация какого типа? В этой информации хотя бы часть твоего массива присутствует?
Да, кстати, ты хэлп по процедуре BlockWrite смотрел?
Сейчас у меня нет времени разбираться, но вот часть кода оттуда:
var
FromF, ToF: file;
NumRead, NumWritten: Integer;
Buf: array[1..2048] of Char;
begin
........................
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
........................
end;
Ну а если не будет другого выхода, то придется делать перебором элементов.
|