Вверх ↑
Ответов: 8593
Рейтинг: 795
#1: 2020-10-13 13:50:30 ЛС | профиль | цитата
flint2 писал(а):
На самом деле надо писать IC
Это когда много и быстро надо (помните искали совпадения в файлах), а когда чуть, можно и на имеющихся компонентах.
А вот кому зайца свеже... ой, без IC!
Без


Add(MainForm,2953706,182,70)
{
Width=477
}
Add(Button,5509864,182,126)
{
Left=5
Top=10
Width=65
Caption="Открыть"
link(onClick,14800745:doExecute,[])
}
Add(ODialog,14800745,231,126)
{
Filter="TXT|*.txt"
link(onExecute,6805846:doEvent1,[])
}
Add(Edit,12665519,525,70)
{
Left=150
Top=40
Width=155
Text=""
}
Add(Button,14187209,182,168)
{
Left=5
Top=40
Width=65
Caption="Искать"
link(onClick,2338006:doEvent1,[])
}
Add(Str_Enum,3245901,385,189)
{
Delimiter=" "
link(onEnum,2416849:doReplace,[])
}
Add(CheckBox,7422570,469,70)
{
Left=80
Top=40
Width=65
Caption="Регистр"
}
Add(ArrayEnum,5904926,329,189)
{
link(onItem,3245901:doEnum,[])
link(onEndEnum,3174450:doStop,[(368,202)(368,83)])
link(Array,12749778:Array,[])
}
Add(If_else,2871641,469,189)
{
Op2=Integer(0)
link(onTrue,2289423:doModify,[])
link(onFalse,16235305:doWork3,[(564,202)])
link(Op1,5794077:Var2,[])
}
Add(StrCase,2289423,525,189)
{
link(onModify,16235305:doWork2,[])
}
Add(StrCase,8007189,525,126)
{
link(onModify,8244333:doWork1,[(564,132)])
link(Str,7992154:Var2,[])
}
Add(Hub,2338006,280,168)
{
OutCount=4
link(onEvent1,15863922:doClear,[(669,174)(669,202)])
link(onEvent2,4065486:doCompare,[(414,181)(414,132)])
link(onEvent3,3174450:doStart,[(305,188)(305,76)])
link(onEvent4,5904926:doEnum,[])
}
Add(If_else,4065486,427,126)
{
link(onTrue,8007189:doModify,[])
link(onFalse,9341872:doData,[])
link(Op1,5794077:Var1,[(433,117)])
}
Add(GetDataEx,5794077,469,112)
{
link(Data,7422570:Checked,[])
}
Add(DoData,9341872,483,133)
{
link(onEventData,8244333:doWork2,[])
link(Data,7992154:Var1,[(489,117)])
}
Add(Memory,15579521,574,133)
{
Default=String()
}
Add(GetDataEx,7992154,525,112)
{
link(Data,12665519:Text,[])
}
Add(HubEx,8244333,560,133)
{
link(onEvent,15579521:doValue,[])
}
Add(If_else,6025454,574,189)
{
link(onTrue,9586958:doEvent1,[])
link(Op1,15579521:Value,[])
}
Add(HubEx,16235305,560,189)
{
link(onEvent,6025454:doCompare,[])
}
Add(Replace,2416849,427,189)
{
SubStr="."
DestStr=" "
link(onReplace,14526896:doReplace,[])
}
Add(Replace,14526896,427,189)
{
SubStr=","
DestStr=" "
link(onReplace,13182189:doReplace,[])
}
Add(Replace,13182189,427,189)
{
SubStr="!"
DestStr=" "
link(onReplace,12445586:doReplace,[])
}
Add(Replace,12445586,427,189)
{
SubStr="?"
DestStr=" "
link(onReplace,6991683:doReplace,[])
}
Add(Hub,9586958,616,189)
{
link(onEvent1,15863922:doAdd,[])
link(onEvent2,3245901:doStop,[(641,202)(641,230)(375,230)(375,202)])
}
Add(ListBox,15180890,315,7)
{
Left=10
Top=85
Width=230
Height=175
}
Add(ListBox,15863922,658,189)
{
Left=255
Top=85
Width=200
Height=175
link(Str,5904926:Item,[(664,180)(650,180)(650,236)(335,236)])
}
Add(TimeCounter,3174450,378,70)
{
link(onStop,11912534:doString,[])
}
Add(Replace,6991683,427,189)
{
SubStr="/9"
DestStr=" "
link(onReplace,15014974:doTrim,[])
}
Add(Trim,15014974,427,189)
{
Char=" "
Mode=7
link(onTrim,2871641:doCompare,[])
}
Add(FormatStr,11912534,420,77)
{
Mask="%1 строк за %2 мсек"
link(onFString,2953706:doCaption,[(459,83)(459,62)(172,62)(172,76)])
link(Str1,12749778:Count,[(426,68)(363,68)(363,159)(328,159)])
}
Add(StrList,12749778,315,105)
{
}
Add(Hub,6805846,273,126)
{
link(onEvent1,15180890:doLoad,[(298,132)(298,41)])
link(onEvent2,12749778:doLoad,[])
}

Без_IC.jpg
карма: 18

0