Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2013-03-06 18:12:49 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:15:08
карма: 0

0
Ответов: 301
Рейтинг: 11
#2: 2013-03-06 21:58:14 ЛС | профиль | цитата
host-37-49-203-183.bbcust писал(а):
нужно взять кусок текста из одного Edit

а по какому принципу взять?
host-37-49-203-183.bbcust писал(а):
и вставить в кусок другого Edit

опять- же по какому принципу вставлять?
карма: 0

0
Ответов: 141
Рейтинг: 11
#3: 2013-03-06 22:23:39 ЛС | профиль | цитата
«Поди туда - не знаю куда, принеси то - не знаю что».
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2013-03-07 09:46:15 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 15:15:08
карма: 0

0
Ответов: 1536
Рейтинг: 176
#5: 2013-03-07 10:46:15 ЛС | профиль | цитата
host-37-49-203-183.bbcust, конкретнее. Дай реальный текст, с которым ты собираешься работать и текст-результат, который ты хочешь получить на выходе. Твой пример ни о чём не говорит. И почему, именно, поле Edit?
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8938
Рейтинг: 824
#6: 2013-03-07 11:15:00 ЛС | профиль | цитата
ser_davkin писал(а):
И почему, именно, поле Edit?
Так надо!
host-37-49-203-183.bbcust писал(а):
Всем привет
И Вам не болеть!
code_30516.txt
карма: 19

0
файлы: 1code_30516.txt [2.1KB] [302]
Ответов: 2
Рейтинг: 0
#7: 2013-03-07 13:09:35 ЛС | профиль | цитата
Вот там увидите где что))))






Width=522
Height=317
BorderStyle=1
link(onActivate,5997827:doText2,[(135,168)(135,48)])
}
Add(SMTP,13035026,231,323)
{
Port=2525
Point(Attach)
Point(Login)
Point(Password)
link(onStatus,11925895:doText,[])
link(From,3429945:Text,[(244,287)(146,287)])
link(To,12730526:Text,[(251,276)(195,276)])
link(Subject,3603283:Text,[(258,269)(244,269)])
link(Body,760243:Text,[(265,269)(300,269)])
link(Attach,9644043:Array,[(272,283)(377,283)])
link(Login,13193839:Text,[(279,293)(384,293)])
link(Password,7944118:Text,[(286,301)(412,301)])
}
Add(Button,363541,63,323)
{
Left=445
Top=265
Width=65
Caption="Отправить"
link(onClick,5414407:doStart,[])
}
Add(Label,11925895,511,330)
{
Left=5
Top=270
Width=380
Caption="Статус"
}
Add(Memo,760243,294,169)
{
Left=10
Top=115
Width=245
Height=145
ScrollBars=2
}
Add(Edit,3603283,238,183)
{
Left=310
Top=175
Width=190
Text=""
}
Add(Label,1128265,28,22)
{
Left=310
Top=130
Width=33
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="Кому:"
}
Add(Edit,3429945,140,218)
{
Left=10
Top=30
Width=150
Text=""
}
Add(Edit,12730526,189,197)
{
Left=310
Top=150
Width=190
Text=""
}
Add(Button,15980591,441,162)
{
Left=285
Top=10
Width=140
Caption="Присоединить файл"
}
Add(ListBox,9644043,357,176)
{
Left=285
Top=35
Width=200
Strings=#50:C:UsersСюда надо вставить текст AppDataRoaming|
}
Add(Edit,13193839,378,232)
{
Left=10
Top=55
Width=150
Text=""
}
Add(Edit,7944118,406,246)
{
Left=10
Top=80
Width=150
Text=""
}
Add(Label,10311866,77,22)
{
Left=10
Top=10
Width=46
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="От кого:"
}
Add(Thread,5414407,175,323)
{
Delay=0
FastStop=0
link(onExec,13035026:doSend,[])
}
Add(ComputerInfo,6028682,301,21)
{
}
Add(Edit,5997827,189,35)
{
Left=310
Top=220
Width=195
Text="От сюда вставлять"
Point(onChar)
link(Str,6028682:UserName,[(195,27)(307,27)])
}



карма: 0

0
Ответов: 1536
Рейтинг: 176
#8: 2013-03-07 16:11:07 ЛС | профиль | цитата
Если заранее известны границы текста, то можно воспользоваться простым FormatStr

Add(MainForm,12049245,161,161)
{
Width=586
Height=317
BorderStyle=1
link(onCreate,7555487:doExpand,[])
}
Add(SMTP,13035026,413,406)
{
Port=2525
Point(Attach)
Point(Login)
Point(Password)
link(onStatus,11925895:doText,[])
link(From,3429945:Text,[(426,371)(314,371)])
link(To,12730526:Text,[(433,360)(356,360)])
link(Subject,3603283:Text,[(440,353)(398,353)])
link(Body,760243:Text,[])
link(Attach,9644043:Array,[(454,306)(482,306)])
link(Login,13193839:Text,[(461,377)(475,377)])
link(Password,7944118:Text,[(468,385)(517,385)])
}
Add(Button,363541,294,406)
{
Left=445
Top=265
Width=65
Caption="Отправить"
link(onClick,5414407:doStart,[])
}
Add(Label,11925895,490,413)
{
Left=5
Top=270
Width=380
Caption="Статус"
}
Add(Memo,760243,441,252)
{
Left=10
Top=115
Width=245
Height=145
ScrollBars=2
}
Add(Edit,3603283,392,266)
{
Left=310
Top=175
Width=190
Text=""
}
Add(Label,1128265,532,161)
{
Left=310
Top=130
Width=33
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="Кому:"
}
Add(Edit,3429945,308,301)
{
Left=10
Top=30
Width=150
Text=""
}
Add(Edit,12730526,350,280)
{
Left=310
Top=150
Width=190
Text=""
}
Add(Button,15980591,567,203)
{
Left=285
Top=10
Width=140
Caption="Присоединить файл"
}
Add(ListBox,9644043,462,154)
{
Left=285
Top=35
Width=290
Strings=#50:C:UsersСюда надо вставить текст AppDataRoaming|
}
Add(Edit,13193839,469,336)
{
Left=10
Top=55
Width=150
Text=""
}
Add(Edit,7944118,511,336)
{
Left=10
Top=80
Width=150
Text=""
}
Add(Label,10311866,567,161)
{
Left=10
Top=10
Width=46
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="От кого:"
}
Add(Thread,5414407,357,406)
{
Delay=0
FastStop=0
link(onExec,13035026:doSend,[])
}
Add(EnvVars,7555487,210,175)
{
String="%appdata%"
link(onExpand,15489424:doSplit,[])
}
Add(ComputerInfo,6028682,357,133)
{
}
Add(Edit,13570333,357,175)
{
Left=310
Top=220
Width=195
Text="От сюда вставлять"
link(onChange,9907844:doString,[])
link(Str,6028682:UserName,[])
}
Add(FormatStr,9907844,406,175)
{
DataCount=4
Mask="%1\%2\%3\%4"
link(onFString,9644043:doText,[])
link(Str1,15489424:Part1,[(412,166)(398,166)(398,230)(265,230)])
link(Str2,15489424:Part2,[(419,159)(307,159)(307,221)(272,221)])
link(Str4,6636761:Value,[(433,166)(447,166)(447,236)(314,236)])
}
Add(MultiStrPart,15489424,259,175)
{
Char=""
Count=3
link(onSplit,6636761:doValue,[])
}
Add(Memory,6636761,308,175)
{
link(onData,13570333:doText,[])
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 2
Рейтинг: 0
#9: 2013-03-07 18:40:04 ЛС | профиль | цитата
Спасибо))) всё!))А как можно программу из диспетчера задач скрыть???
карма: 0

0
Ответов: 8938
Рейтинг: 824
#10: 2013-03-07 18:47:22 ЛС | профиль | цитата
Chicker писал(а):
программу из диспетчера задач скрыть

ser_davkin, ну вот, начинается!
карма: 19

0
Ответов: 1536
Рейтинг: 176
#11: 2013-03-07 18:52:41 ЛС | профиль | цитата
Chicker писал(а):
А как можно программу из диспетчера задач скрыть???
Ничего хорошего в этом не вижу.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

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