VPF::|Delphi]Дозапись в текст. файл через append и бе

sagaal

Дата 27.12.2008, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.12.2008

Репутация: нет
Всего: нет

Здравствуйте. Проблема в следующем.Append  -  открывает, ищет конец, записывает. Возник вопрос, как записать те же действия (что выполняет  Append) ,но более простыми, элементарными функциями?
Уже пробовала решить:
1)           Reset(F); White not EOF (F) do  write (F , a)  не работает
2)           Count = File Size For Count F  ?  do write  не работает

Код


{$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 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.

Подскажите, срочно, кто сможет.

Это сообщение отредактировал(а) Rodman - 28.12.2008, 08:59

Данкинг

Дата 27.12.2008, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(sagaal @ 27.12.2008, 22:37

)

но более простыми, элементарными функциями?

А чем append так сложен?

Добавлено через 4 минуты и 55 секунд

Цитата(sagaal @ 27.12.2008, 22:37

)

Reset(F); White not EOF (F) do write (F , a) не работает

Я бы сильно удивился, если бы сиё работало. smile

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »