Дозапись в текстовый (а не в типизированный) файл без append

← →
saga-al (2008-12-28 11:22) [0]

В общем дело так. Есть программа - записывает массив в текстовый файл. Делал изначально с помощью Rewrite(f). Препод спросил, как организовать дозапись в файл. Я заменил rewrite(f) на append(f). Препод спросил как работает Append, я объяснил, что открывает файл, читает до конца, тем самым как бы ищет конец файла и записывает в конец. Препод вроде кивнул, и сказал реализовать это без Append`а, как бы расписать его по действиям. Но основная проблема в том, что f:textfile ключевое условие. То есть необходимо организовать дозапись в текстовый файл, аналогично аппенду, но не используя его. Препод утверждает, что задача элементарна. Ниже код.

program Zadanie;

{$APPTYPE CONSOLE}

const n=5; m=5;
var f: textfile;
a:array [1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
assignfile(f,"num2.txt");
append(f); {Необходимо расписать аппенд как бы, по действиям, варианты типа reset(f);
while not EOF(F) do readln(f,); writeln(f,a[i,j]) не работают. Тип файла должен быть текстовым.}

for i:=1 to n do
begin
for j:=1 to m do
begin
write(f,a[i,j]:3);
end;
writeln(f);
end;
readln;
closefile(f);
end.

← →
Palladin © (2008-12-28 11:34) [1]

1. Ни ты ни препод не знаете как работает Append.
2. К текстовому файлу нельзя применять Seek. Последствия непредсказуемы.
3. Какого черта нужна еще одна ветка?

> 3. Какого черта нужна еще одна ветка?
не нужна. ту удалил, эту закрываю как спам.

Дозапись в текстовый (а не в типизированный) файл без append Найти похожие ветки