Перенос строки
 |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
| ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
| [3.133.121.160] |
|
|
ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...
Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Перенос строки
|
Сообщ.
#1
,
|
|
|
|
Добрый день, вопрос может и глупый но решить не могу! Есть переменная S string, имеет в себе n- количество символов, нужно разбить её на строки по 5 символов и записать в файл. Пример s:= '1234567890098765432101'; на выходе 12345
67890 09876 54321 01 |
|
Сообщ.
#2
,
|
|
 |
Для выделения части строки используйте функцию Copy
  for i := 0 to (Length(s) + 4) div 5 - 1 do begin subs := Copy(s, 1 + i*5, 5); записать subs end; |
|
Сообщ.
#3
,
|
|
|
|
Спасибо за помощь!!! Дай Вам Бог здоровья!!!!
|
|
Сообщ.
#4
,
|
 |
Как ещё вариант:
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; |
|
Сообщ.
#5
,
|
|
|
|
Странно в ListBox отрабатывает,а при writeln(f,subs); в файле только последние 5 символов!
|
|
|
Сообщ.
#6
,
|
|
|
kiddan
Код то покажи, мы не умеем гадать |
|
Сообщ.
#7
,
|
|
|
|
Разобрался, всем спасибо кто помог!!!
|
0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
0 пользователей:
[ Script execution time: 0,0227 ] [ 17 queries used ] [ Generated: 19.04.24, 00:00 GMT ]