Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.190.156.80] |
|
Сообщ.
#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
,
|
|
|
Разобрался, всем спасибо кто помог!!!
|