Вверх ↑
Этот топик читают: Гость
Ответов: 3349
Рейтинг: 233
#1: 2010-07-03 17:31:34 ЛС | профиль | цитата
Второй мой компонент из той же серии
Разбивает строкупо кол-ву символов.
Пример:
1234567890(pos=2)=12+34+56+78+90
Спасибо Assasin

------------ Дoбавленo в 17.31:
Компонент будет полезен для создания чата(разбивка длинных сообщений на короткие)
карма: 1

0
файлы: 1strposenum.rar [2.7KB] [282]
vip
#1.1контекстная реклама от партнеров
Ответов: 3349
Рейтинг: 233
#2: 2010-07-04 17:32:44 ЛС | профиль | цитата
Вот, доработал
Добавлено onEndEnum and onBreak
Изменил защиту, теперь если pos >=len выдается первоначальная строка событием onEnum
Вижу компонент никого не заинтересовал, значит продолжать дорабатывать не буду
карма: 1

0
файлы: 1strposenum.rar [2.8KB] [257]
Ответов: 16884
Рейтинг: 1239
#3: 2010-07-04 18:59:23 ЛС | профиль | цитата
Ivann писал(а):
продолжать дорабатывать не буду
Трезвая мысль
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3349
Рейтинг: 233
#4: 2010-07-04 19:25:58 ЛС | профиль | цитата
Tad, Если некому ненужен то зачем делать
карма: 1

0
Ответов: 1304
Рейтинг: 405
#5: 2010-07-05 00:44:28 ЛС | профиль | цитата
Tad, Если некому ненужен то зачем делать

риторический вопрос или утверждение.
Новый компонент нужен, если;
1. Невозможно сделать на стандартных элементах
2. Большой выигрыш в быстродействии
3. Заменяет в часто используемых схемах несколько элементов
Ivann, а так получится куча нестандартных элементов, попробуй тогда обменятся схемами.
[flood]У Tad-а предполагаю элементов "под себя" не меряно и некоторые он выкладывает на форуме, так что доработай StrPosEnum возможно и тебе кто то скажет большое спасибо.[/flood]
------------ Дoбавленo в 00.44:


Add(MainForm,2953706,91,140)
{
Position=1
link(onCreate,2819709:doLength,[])
}
Add(Copy,13405849,259,231)
{
Count=2
link(onCopy,8489789:doAdd,[])
link(Str,7835715:Var3,[(265,124)])
link(Position,2859583:Position,[(272,219)(237,219)(237,275)(202,275)])
}
Add(StrList,9213534,203,35)
{
Strings=#10:1234567890|
}
Add(Memo,8489789,315,231)
{
Left=80
Top=15
Width=230
Height=245
ScrollBars=3
}
Add(InfoTip,4759056,147,105)
{
Info=#10:StrPosEnum|
Width=218
Height=186
}
Add(Length,2819709,203,154)
{
link(onLength,2859583:doFor,[(257,160)(257,195)(184,195)(184,237)])
link(Str,7835715:Var2,[])
}
Add(GetDataEx,7835715,203,119)
{
link(Data,9213534:Text,[])
}
Add(For,2859583,196,231)
{
Start=-1
Step=2
Point(doStep)
link(onEvent,13405849:doCopy,[])
link(End,2819709:Result,[])
}

карма: 3

1
Голосовали:Tad
Ответов: 16884
Рейтинг: 1239
#6: 2010-07-05 07:44:59 ЛС | профиль | цитата
А так совсем "гибко" будет
code_19227.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_19227.txt [1.4KB] [342]
Ответов: 3349
Рейтинг: 233
#7: 2010-07-05 07:49:16 ЛС | профиль | цитата
Tad, создает две лишних строки, чего у меня нет
карма: 1

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)