Вверх ↑
Ответов: 871
Рейтинг: 322
#1: 2019-07-07 18:12:46 ЛС | профиль | цитата
Sersey, а если вот так попробовать?
Add(MainForm,16510308,434,238)
{
Width=451
Height=323
}
Add(Button,11319419,434,308)
{
Left=165
Top=260
Width=180
Caption="Sort"
link(onClick,5238234:doEnum,[])
}
Add(ListBox,14626102,539,238)
{
Left=20
Top=20
Width=95
Height=225
Strings=#11:11-1024.jpg|11:13-1024.jpg|11:12-1024.jpg|11:21-1024.jpg|11:14-1024.jpg|11:17-1024.jpg|11:15-1024.jpg|11:18-1024.jpg|11:19-1024.jpg|10:2-1024.jpg|11:20-1024.jpg|11:22-1024.jpg|11:16-1024.jpg|11:23-1024.jpg|
Point(doReplace)
}
Add(ListBox,9150339,658,308)
{
Left=125
Top=20
Width=95
Height=225
Point(doReplace)
}
Add(ArrayEnum,5238234,553,308)
{
link(onItem,8553248:doReplace,[])
link(onEndEnum,4038917:doSort,[(598,321)(598,377)])
link(Array,14626102:Array,[])
}
Add(Replace,8553248,609,308)
{
SubStr="-"
DestStr="0"
link(onReplace,9150339:doAdd,[])
}
Add(ArraySort,4038917,672,371)
{
ArrayType=2
link(onEndSort,5373438:doEnum,[(719,377)(719,416)(660,416)(660,440)])
link(Array,9150339:Array,[])
}
Add(ListBox,11398401,738,434)
{
Left=230
Top=20
Width=95
Height=225
Point(doReplace)
}
Add(ArrayEnum,5373438,672,434)
{
link(onItem,11398401:doAdd,[])
link(onEndEnum,16000239:doEnum,[(728,447)(728,515)])
link(Array,4038917:ArraySort,[])
}
Add(ListBox,12172627,853,509)
{
Left=340
Top=20
Width=95
Height=225
Point(doReplace)
}
Add(ArrayEnum,16000239,752,509)
{
link(onItem,9686188:doStrCat,[])
link(Array,11398401:Array,[])
}
Add(StrCat,9686188,805,509)
{
Str2=".jpg"
link(onStrCat,12172627:doAdd,[])
}
Только тут лишний листбокс для глаза.

--- Добавлено в 2019-07-07 18:25:04

Но нули можно и не добавлять.

Add(MainForm,16510308,714,231)
{
Width=245
Height=323
}
Add(Button,11319419,721,301)
{
Left=30
Top=260
Width=180
Caption="Sort"
link(onClick,4038917:doSort,[])
}
Add(ArraySort,4038917,784,301)
{
ArrayType=2
link(onEndSort,5373438:doEnum,[(828,307)(828,348)(772,348)(772,370)])
link(Array,2587102:Array,[])
}
Add(ListBox,11398401,899,364)
{
Left=125
Top=20
Width=95
Height=225
Point(doReplace)
}
Add(ArrayEnum,5373438,784,364)
{
link(onItem,9686188:doStrCat,[])
link(Array,4038917:ArraySort,[])
}
Add(StrCat,9686188,840,364)
{
Str2=".jpg"
link(onStrCat,11398401:doAdd,[])
}
Add(ListBox,2587102,770,231)
{
Left=20
Top=20
Width=95
Height=225
Strings=#11:11-1024.jpg|11:13-1024.jpg|11:12-1024.jpg|11:21-1024.jpg|11:14-1024.jpg|11:17-1024.jpg|11:15-1024.jpg|11:18-1024.jpg|11:19-1024.jpg|10:2-1024.jpg|11:20-1024.jpg|11:22-1024.jpg|11:16-1024.jpg|11:23-1024.jpg|
Point(doReplace)
}

карма: 1

0
Редактировалось 2 раз(а), последний 2019-07-07 18:25:04