Вверх ↑
Ответов: 378
Рейтинг: 61
#1: 2011-08-04 16:42:39 ЛС | профиль | цитата
Может так?

Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,168,231)
{
Width=275
Height=169
Position=1
link(onCreate,13917417:doText,[])
}
Add(Edit,13917417,217,245)
{
Left=5
Top=5
Width=255
Text=""
link(onChange,1671279:doLength,[])
link(Str,7025335:Var2,[])
}
Add(ListBox,16249999,392,245)
{
Left=5
Top=55
Width=255
}
Add(Length,1671279,259,245)
{
link(onLength,13945066:doFor,[])
}
Add(For,13945066,301,245)
{
Start=1
Step=6
link(onEvent,7764826:doCopy,[])
link(End,1671279:Result,[(314,233)(290,233)(290,289)(265,289)])
}
Add(Copy,7764826,350,245)
{
Count=6
link(onCopy,16249999:doAdd,[])
link(Str,7025335:Var3,[(356,187)])
link(Position,13945066:Position,[(363,233)(343,233)(343,285)(307,285)])
}
Add(Memory,14490079,217,147)
{
Default=String(AGFB2323442NFU3)
}
Add(GetDataEx,7025335,217,182)
{
link(Data,14490079:Value,[])
}


карма: 0
2
Голосовали:Tad, sаmakacd