Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#1: 2008-05-06 23:31:43 ЛС | профиль | цитата
CharArray - Расширенный массив символов. Добавить бы ему нижнюю точку Count, а то массив есть, а сколько в нем символов неизвестно (хотя функция Count есть )
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#2: 2008-05-06 23:42:52 ЛС | профиль | цитата
Tad, это, в принципе, можно, почему бы и нет
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#3: 2008-05-06 23:46:47 ЛС | профиль | цитата
Я у себя добавляю уже года два .
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#4: 2008-05-06 23:59:13 ЛС | профиль | цитата
Добавлено

Tad писал(а):
Я у себя добавляю уже года два

А где ты был раньше
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#5: 2008-05-08 12:00:44 ЛС | профиль | цитата
nesco писал(а):
А где ты был раньше
Вот еще одна добавка в компоненте StrCat
procedure THIStrCat._work_doClear;
begin
r:=';
end;

------------ Дoбавленo:

Ничего не весит и никому не мешает, а пользы много.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#6: 2008-05-08 12:20:20 ЛС | профиль | цитата
Tad писал(а):
Ничего не весит и никому не мешает, а пользы много

Чего-то я смысла боьшой пользы не увидел, объясни подробнее.
Если только то, что на точке Result повится пустая строка, и смысл в этом какой
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#7: 2008-05-08 13:18:26 ЛС | профиль | цитата
Появляется возможность применить StrCat (Result соединяем с Str1) в цикле с сбросом в пусто по условию. Если сброс по пробелу - получаем слова, если по знакам раздела (. ! ?)- получаем предложения (читаем перед сбросом).
Конечно, тот же результат можно получить и с заменой знаков раздела на "
" и с подачей на StrList.do Text с последующей обработкой StrList -a, но не всегда это удобно.


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#8: 2008-05-08 15:08:24 ЛС | профиль | цитата
Tad, а чем тебя вот такая конструкция не устраивает, зачем там StrList



Add(MainForm,12286980,189,91)
{
Left=20
Top=105
}
Add(StrCat,14513383,301,147)
{
link(onStrCat,7857746:doCase,[])
link(Str1,8047897:Value,[])
}
Add(Memory,8047897,301,98)
{
Default=String()
Point(Data)
link(Data,14513383:Result,[(307,86)(295,86)(295,191)(307,191)])
}
Add(Case,7857746,364,147)
{
Value=String( )
link(onNextCase,8047897:doValue,[(408,153)(408,80)(286,80)(286,104)])
link(onTrue,8047897:doClear,[(418,160)(418,71)(274,71)(274,111)])
}

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#9: 2008-05-08 15:55:52 ЛС | профиль | цитата
Ну и что ? Сбрось по букве "а" в пустышку.
code_8997.txt
------------ Дoбавленo:

Чем отличаетсч StrCat от Math ? Грубо говоря ничем и почему я не имею право сбросить его в пусто ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_8997.txt [920B] [247]
Разработчик
Ответов: 26163
Рейтинг: 2127
#10: 2008-05-08 16:30:50 ЛС | профиль | цитата
Tad писал(а):
Ну и что ? Сбрось по букве "а" в пустышку

Ну и что, вот так точно сбрасывает



Add(MainForm,15849640,231,133)
{
Left=20
Top=105
}
Add(StrCat,14513383,483,259)
{
link(onStrCat,16391750:doEvent1,[])
link(Str1,8047897:Value,[])
}
Add(Memory,8047897,483,196)
{
Default=String()
Point(Data)
link(Data,14513383:Result,[(489,184)(477,184)(477,303)(489,303)])
}
Add(Case,7857746,315,196)
{
Value=String(a)
link(onNextCase,16027443:doWork1,[(438,202)])
link(onTrue,1251100:doEvent1,[])
}
Add(Button,14716459,231,175)
{
Left=70
Top=150
Data=String(W)
link(onClick,13897164:doWork1,[(291,181)])
}
Add(Button,9200219,231,217)
{
Left=75
Top=210
Data=String(a)
link(onClick,13897164:doWork3,[(291,223)])
}
Add(HubEx,13897164,287,189)
{
link(onEvent,7857746:doCase,[])
}
Add(Label,5576600,595,266)
{
Left=70
Top=10
}
Add(Hub,16391750,539,259)
{
link(onEvent1,8047897:doValue,[(590,265)(590,164)(471,164)(471,202)])
link(onEvent2,5576600:doText,[])
}
Add(Hub,1251100,371,203)
{
link(onEvent1,8047897:doClear,[])
link(onEvent2,16027443:doWork2,[])
}
Add(HubEx,16027443,434,203)
{
Angle=1
link(onEvent,14513383:doStrCat,[(438,265)])
}

------------ Дoбавленo:

Tad писал(а):
Чем отличаетсч StrCat от Math ?

Ну ты и сравнил, теплое с мягким
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#11: 2008-05-08 16:40:27 ЛС | профиль | цитата
Вот, для того чтобы не лепить четыре добавочных компонента и предложил, то что предложил.
Нет - значит нет.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#12: 2008-05-08 16:50:27 ЛС | профиль | цитата
Tad, я же не сказал, что этого не надо делать, а просто хотел добиться уточнения задачи, да и мозгам дать поработать, как это можно реализовать без добавки в коды, и сколько это потребует компонентов.
------------ Дoбавленo:

А вот событие на выходе при очистке точно не нужно, или, все же, нужно ?
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#13: 2008-05-08 17:37:08 ЛС | профиль | цитата
Наверное не нужно.
------------ Дoбавленo:

Кому нужно хаб поставит. Сколько я эту модернизацию не применял - мне ни разу событие не понадобилось.
Обычно я читаю число,вернее строку, разбитое на триады чтобы знать куда вставлять слово "миллион", "тысяча" и подобное.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#14: 2008-05-08 18:01:18 ЛС | профиль | цитата
Добавил
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#15: 2008-05-17 21:50:35 ЛС | профиль | цитата
nesco, посмотри. В первом если -Count, то копируем с конца, во втором просто ускорил работу
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1file.rar [648B] [189]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)