Вверх ↑
Этот топик читают: Гость
Ответов: 17
Рейтинг: 1
#1: 2009-01-06 18:14:45 ЛС | профиль | цитата
Мне нужно сделать так, чтоб из текстового поля после нажатия кнопки скопировалась случайная строчка в другое текстовое поле! Помогите плз, ато шото не могу допетрить.... Зарание благодарен!
карма: 0

0
Ответов: 3655
Рейтинг: 69
#2: 2009-01-06 18:19:15 ЛС | профиль | цитата
Для начала ставишь компоненты рисуешь пример ,что и куда
надо копировать.
Выкладываешь здесь.
Потом получишь ответ.
карма: 0

0
Ответов: 1397
Рейтинг: 50
#3: 2009-01-06 18:25:17 ЛС | профиль | цитата
axej, да непростую задачу задал
Действительно попробуй создать подобие схемы, может во время рисования, что нибудь и получится.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 17
Рейтинг: 1
#4: 2009-01-06 18:32:26 ЛС | профиль | цитата
code_11229.txt


Это код примерно того что должно получится... Помогите пожалуйста!
карма: 0

0
файлы: 1code_11229.txt [864B] [169]
Ответов: 1397
Рейтинг: 50
#5: 2009-01-06 18:43:38 ЛС | профиль | цитата
code_11230.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
1
файлы: 1code_11230.txt [930B] [189]
Голосовали:axej
Ответов: 17
Рейтинг: 1
#6: 2009-01-06 19:12:48 ЛС | профиль | цитата
Спасибо большое!
Есть еще один вопрос...
Теперь строчки добавляются в столбик, можно так сделать чтоб они добавлялись попорядку в одну строку?
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#7: 2009-01-06 19:18:16 ЛС | профиль | цитата
axej, это решается вставкой одного элемента strcat. Можно и самостоятельно догадаться куда
карма: 27
0
Ответов: 17
Рейтинг: 1
#8: 2009-01-06 19:33:46 ЛС | профиль | цитата
Куда?? Покажите на примере плз если не трудно...
карма: 0

0
Ответов: 1397
Рейтинг: 50
#9: 2009-01-06 19:54:30 ЛС | профиль | цитата
Вот туда...
Есть анекдот про поручика Ржевского:...
Add(MainForm,745238,245,203){
Width=494
Height=509
}
Add(Button,10203817,315,294)
{
Left=15
Top=165
Width=65
Caption="Загрузить"
link(onClick,8400941:doExecute,[])
}
Add(ODialog,8400941,392,294)
{
link(onExecute,3683063:doLoad,[])
}
Add(Label,75552,315,217)
{
Left=15
Top=15
Width=45
Height=17
Caption="Строчки"
}
Add(RichEdit,2698902,602,350)
{
Left=15
Top=230
Width=370
Height=165
}
Add(Label,5703066,315,217)
{
Left=15
Top=205
Width=56
Height=17
Caption="Результат"
}
Add(Button,8348624,315,364)
{
Left=15
Top=400
Width=140
Height=40
Caption="Генерировать!"
link(onClick,16229012:doRandom,[])
}
Add(Random,16229012,399,364)
{
Max=5
link(onRandom,4946014:doRead,[])
}
Add(ArrayRW,4946014,455,364)
{
link(onRead,14669049:doStrCat,[])
link(Array,3683063:Array,[])
}
Add(ListBox,3683063,441,266)
{
Left=15
Top=35
Width=370
Height=120
Strings=#3:жил|3:был|3:пес|1:и|4:был |2:у |4:него|
}
Add(StrCat,14669049,525,364)
{
link(onStrCat,2698902:doText,[])
link(Str2,2698902:Text,[(538,352)(573,352)(573,400)(608,400)])
}


Только не спрашивай про пробел ;)
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 17
Рейтинг: 1
#10: 2009-01-06 19:57:38 ЛС | профиль | цитата
Не смешно.... Вы тоже когдато начинали...((
карма: 0

1
Голосовали:Валерий
Ответов: 1397
Рейтинг: 50
#11: 2009-01-06 20:16:48 ЛС | профиль | цитата
Поэтому и помогаю.
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 17
Рейтинг: 1
#12: 2009-01-06 20:49:44 ЛС | профиль | цитата
Млин, так ак этот пробел впарсить? Если сливаю его с Str2 или на Str1 то без результата... ((
карма: 0

0
Разработчик
Ответов: 26304
Рейтинг: 2146
#13: 2009-01-06 20:54:14 ЛС | профиль | цитата
axej писал(а):
так ак этот пробел впарсить?

А на фиг там StrCat, когда можно Format применить



Add(MainForm,745238,273,175)
{
Width=494
Height=509
}
Add(Button,10203817,343,252)
{
Left=15
Top=165
Width=65
Caption="Загрузить"
link(onClick,8400941:doExecute,[])
}
Add(ODialog,8400941,420,252)
{
link(onExecute,3683063:doLoad,[])
}
Add(Label,75552,343,175)
{
Left=15
Top=15
Width=45
Height=17
Caption="Строчки"
}
Add(RichEdit,2698902,630,308)
{
Left=15
Top=230
Width=370
Height=165
}
Add(Label,5703066,343,175)
{
Left=15
Top=205
Width=56
Height=17
Caption="Результат"
}
Add(Button,8348624,343,322)
{
Left=15
Top=400
Width=140
Height=40
Caption="Генерировать!"
link(onClick,16229012:doRandom,[])
}
Add(Random,16229012,427,322)
{
Max=5
link(onRandom,4946014:doRead,[])
}
Add(ArrayRW,4946014,483,322)
{
link(onRead,2349334:doString,[])
link(Array,3683063:Array,[])
}
Add(ListBox,3683063,469,224)
{
Left=15
Top=35
Width=370
Height=120
Strings=#3:жил|3:был|3:пес|1:и|4:был |2:у |4:него|
}
Add(FormatStr,2349334,553,322)
{
link(onFString,2698902:doText,[])
link(Str2,2698902:Text,[(566,310)(601,310)(601,358)(636,358)])
}



карма: 22

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