Дата: Воскресенье, 06.11.2011, 14:25 | Сообщение # 1
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
Допустим есть текстовой файл (1.txt). Запись идет в него в одну строку. Так вот, как сделать так чтобы при достижении максимального размера символов, запись переходила на следующую строку?
Дата: Воскресенье, 06.11.2011, 16:13 | Сообщение # 2
Модератор
Зарегистрирован: 04.05.2010
Группа: Модераторы
Сообщений: 317
Статус: Offline
Это чистый Паскаль))).
Code
Var F:text; i,max:integer; S:string; begin max:=12; AssignFile(F,'1.txt'); ReWrite(F); s:='F'; for i:=1 to 123456 do if i mod max=0 then Write(f,S+#13) else Write(F,S); close(f); end;
