Поддержка
Вид
LiveInternet
LiveInternet
Аватар
сменить
x
Друзья
В дневник
Написать
Комментарии
ЛС
Настройки
Регистрация
Вход
Рейтинги
Авось
из (+ сутки) дневников
Записи
Друзья
Комментарии
rss forum sources ru
rss forum sources ru
Аватар rss_forum_sources_ru
-
Поиск по дневнику
в этом дневнике
-
Подписка по e-mail
-
Постоянные читатели
Все (3)
YalanLife
livemask2
spiegel1
-
Статистика
Создан: 29.07.2007
Записей:
Комментариев:
Написано: 80
Отчеты:
Посетители
Поисковые фразы
Перенос строки
Среда, 17 Марта 2021 г. 15:14
+ в цитатник
^D^ima: Как ещё вариант:
For I:=1 to length(SIn) do
Begin
sOut:=sOut+SIn[I];
If (I mod 5)=0 then
Begin
ShowMessage(sOut);
sOut:='';
End;
If (I=length(sIn))and (sOut<>'') then ShowMessage(sOut);
End;
https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845510
Метки:
Delphi:
Общие вопросы
Нравится
Поделиться
0
Нравится
Запись понравилась
0
Процитировали
0
Сохранили
0
Добавить в цитатник
0
Сохранить в ссылки
Понравилось
0
<a href="https://www.liveinternet.ru/users/rss_forum_sources_ru/post482175669/">Перенос строки</a><br/>^D^ima: Как ещё вариант: For I:=1 to length(SIn) do Begin sOut:=sOut+SIn[I]; If (I mod 5)=0 then Begin ShowMessage(sOut); sOut:=''; End; If (I=length(sIn))and (sOut<>'') then ShowMessage(sOut); End; https://forum.sources.ru/index.php?showtopic=421262&view=findpost&p=3845510... <a href="https://www.liveinternet.ru/users/rss_forum_sources_ru/post482175669/">Читать далее...</a>
Комментировать
« Пред. запись
—
К дневнику
—
След. запись »
Страницы:
[1] [
Новые
]
Добавить комментарий:
Текст комментария:
смайлики
Проверка орфографии: (найти ошибки)
Прикрепить картинку:
Переводить URL в ссылку
Подписаться на комментарии
Подписать картинку
LiveInternet
О проекте
Версия для PDA
Контакты
Разместить рекламу
Сменить
Логин
Пароль
Выйти