[Delces]

Сообщение от Snake22

Код:

AssignFile(f,'c:\1.txt');
Reset(f);//открываем фал для считывания последнего значения
while not Eof(f) do //переходим в конец файла
Readln(f,i);
inc(i);//увеличиваем считанное знаение
Append(f);//открываем файл для дозаписи
WriteLn(f,i);
CloseFile(f);

А можно пожалуйста поподробнее? Куда это вставлять или если не затруднот можете исходник сделать?