Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2014-12-21 00:22:46 ЛС | профиль | цитата
Это про этот шедевр
alexkir_2.png
Нет ничего проще

Add(MT_AddData,5464145,420,399)
{
Count=5
Data=Integer(8)
}
А тут ты о чем думал ? Зачем крутишь: цифру->в букву->в UpCase->диапазон->опять в цифру-> в TData -> на выход ?
Не проще : цифра->диапазон->на выход. И СapsLook и Shift и раскладка клавиатуры по барабану.

Add(FTCG_Tools,14822731,49,245)
{
@Hint=#18:Проверка диапазона|
@Color=43775
AddHint(-32,74,122,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,7787044,21,2)
{
WorkCount=#7:doPrint|
EventCount=#7:onPrint|
Width=461
Height=221
link(doPrint,12271341:doPrint,[(45,8)(45,29)])
}
Add(VisualInline,12271341,56,23)
{
Lines=#17:Var RD :integer;|15: D :Tdata;|9:begin |21:RD:=ToInteger(Data) ;|30:if RD in [48..57,65..70] then |5:begin|18: dtInteger(d,Rd);|49: _hi_OnEvent(THIFTCG_Tools(FParent).Events[0],d);|4: end|4:end;|
Width=411
Height=176
}
END_SDK
А это Обработка стрелок и Проверка диапазона в одном FTCG мультике

Add(FTCG_Tools,14822731,665,448)
{
@Hint=#17:Обработка стрелок|18:Проверка диапазона|
@Color=43775
AddHint(-83,-47,114,26,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,7787044,7,72)
{
WorkCount=#7:doPrint|
EventCount=#2:DX|2:DY|3:KEY|
Width=461
Height=298
link(doPrint,12271341:doPrint,[(21,78)(21,106)])
}
Add(VisualInline,12271341,35,100)
{
Lines=#17:Var RD :integer;|15: D :Tdata;|5:begin|30:With THIFTCG_Tools(FParent) do|9:begin |20:RD:=ToInteger(Data);|11: Case RD of|31: 37:_hi_OnEvent(Events[0],-1);|31: 38:_hi_OnEvent(Events[1],-1);|30: 39:_hi_OnEvent(Events[0],1);|30: 40:_hi_OnEvent(Events[1],1);|43: 48..57,65..70: _hi_OnEvent(Events[2],RD);|6: end ;|5: end;|4:end;|
Width=411
Height=239
}
END_SDK
------------ Дoбавленo в 19.30:
hexeditor(tad).png
15 компонет (против твоих >300) и всего 70 рабочих строк в IC (с пустышками). ------------ Дoбавленo в 00.22:
alexkir_3.png
из твоих 39 осталось только 15
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 3alexkir_2.png [6.2KB] [826], hexeditor(tad).png [109.7KB] [804], alexkir_3.png [19.2KB] [818]