Пятница, 29.03.2024, 13:05 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Волк-1024, Anton93, xXxSh@dowxXx  
delphicode » Delphi » Вирусология Delphi » Перенос строки по количеству символов
Перенос строки по количеству символов
MyipsДата: Воскресенье, 06.11.2011, 14:25 | Сообщение # 1
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
Допустим есть текстовой файл (1.txt). Запись идет в него в одну строку. Так вот, как сделать так чтобы при достижении максимального размера символов, запись переходила на следующую строку?
 
NeoДата: Воскресенье, 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;
 
delphicode » Delphi » Вирусология Delphi » Перенос строки по количеству символов
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz