Вверх ↑
Этот топик читают: Гость
Ответов: 5446
Рейтинг: 323
#16: 2009-01-16 23:39:55 ЛС | профиль | цитата
Раз пошла такая пьянка (с), то вот ещё -1 относительно моего решения:
code_11414.txt

А вот - вариация на тему читерского решения:
code_11415.txt
карма: 1

0
файлы: 2code_11414.txt [791B] [762], code_11415.txt [833B] [729]
Разработчик
Ответов: 26061
Рейтинг: 2120
#17: 2009-01-16 23:46:59 ЛС | профиль | цитата
А чего, вот так нельзя


Add(MainForm,2953706,294,280)
{
}
Add(StrList,8455902,357,329)
{
Strings=#8:1;afandi|5:2;id2|5:3;id3|5:4;id4|
Point(doGetIndex)
Point(onGetIndex)
Point(StrToFind)
Point(onGetString)
Point(doGetString)
link(onGetIndex,12138803:doCase,[])
link(StrToFind,10027621:Text,[])
}
Add(Edit,10027621,371,280)
{
Left=30
Top=10
Width=185
Text="4;id4"
}
Add(Memo,6206649,553,343)
{
Left=30
Top=70
Width=180
Height=160
}
Add(Button,14478309,301,371)
{
Left=30
Top=40
link(onClick,8455902:doGetIndex,[])
}
Add(Case,12138803,413,336)
{
Value=Integer(-1)
DataOnTrue=String(Клиент НЕ авторизован!)
link(onNextCase,1480986:doData,[])
link(onTrue,4863184:doWork2,[])
}
Add(DoData,1480986,469,336)
{
Data=String(Клиент авторизован!)
link(onEventData,4863184:doWork1,[(529,342)])
}
Add(HubEx,4863184,525,336)
{
link(onEvent,6206649:doAdd,[])
}


карма: 22

0
Ответов: 5446
Рейтинг: 323
#18: 2009-01-16 23:50:23 ЛС | профиль | цитата
nesco, тебя за такое понизить надо в статусе
карма: 1

1
Голосовали:andrestudio
Разработчик
Ответов: 26061
Рейтинг: 2120
#19: 2009-01-16 23:51:03 ЛС | профиль | цитата
iarspider писал(а):
nesco, тебя за такое понизить надо в статусе ;)

Это за что это За то, что у меня среда сглючила и скопировала дважды одно и тоже.
карма: 22

0
Ответов: 5446
Рейтинг: 323
#20: 2009-01-16 23:52:01 ЛС | профиль | цитата
И чем твоё творчество отличается от моей версии ?
карма: 1

0
Разработчик
Ответов: 26061
Рейтинг: 2120
#21: 2009-01-16 23:53:52 ЛС | профиль | цитата
iarspider писал(а):
http://dev.hiasm.com/xf//getfile/11406 ?

Да опоздал я немного, ты вперед постанул
карма: 22

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#22: 2009-01-16 23:54:18 ЛС | профиль | цитата
code_11417.txt
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
файлы: 1code_11417.txt [572B] [761]
Ответов: 5446
Рейтинг: 323
#23: 2009-01-16 23:59:24 ЛС | профиль | цитата
Nic, вот ни за что бы не поверил, что работает, если бы сам не проверил! Однако красивое решение, ничего не скажешь.
карма: 1

0
Ответов: 199
Рейтинг: 44
#24: 2009-01-17 00:00:44 ЛС | профиль | цитата
Dilma писал(а):
хабы-то мы тоже учитываем

карма: 0

1
Голосовали:andrestudio
Разработчик
Ответов: 26061
Рейтинг: 2120
#25: 2009-01-17 00:03:52 ЛС | профиль | цитата
iarspider писал(а):
вот ни за что бы не поверил, что работает, если бы сам не проверил!

iarspider, а ты первую цифру менять пробоал, у меня не работает
карма: 22

0
Администрация
Ответов: 15294
Рейтинг: 1518
#26: 2009-01-17 00:10:52 ЛС | профиль | цитата
между прочим решение Nic, а это демонстрация некорректной работы элемента ArrayRW при поиске по имени выдает последнее значение массива, если имя не было найдено. Это вообще говоря исправлять надо...
карма: 26
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#27: 2009-01-17 00:12:15 ЛС | профиль | цитата
Dilma писал(а):
Это вообще говоря исправлять надо...

Ну вот и баг нашли, и это уже радует
карма: 22

1
Голосовали:andrestudio
Главный модератор
Ответов: 2997
Рейтинг: 395
#28: 2009-01-17 00:18:20 ЛС | профиль | цитата
Можно было б ещё от кнопки избавиться, если повесить на onEnter
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Администрация
Ответов: 15294
Рейтинг: 1518
#29: 2009-01-17 00:36:31 ЛС | профиль | цитата
Nic писал(а):
Можно было б ещё от кнопки избавиться, если повесить на onEnter

ну если так ставить вопрос, то вот она программа на 4х элементах(без формы 3).


Add(MainForm,3919614,385,259)
{
Width=381
Height=67
Point(onClose)
}
Add(StrList,8455902,322,245)
{
Strings=#8:1;afandi|5:2;id2|5:3;id3|5:4;id4|0:|0:|0:|1: |0:|21:Клиент НЕ авторизован|18:Клиент авторизован|18:Клиент авторизован|18:Клиент авторизован|18:Клиент авторизован|
Point(doGetIndex)
Point(onGetIndex)
Point(onGetString)
Point(doGetString)
Point(StrToFind)
link(onGetIndex,12593334:doOperation,[(372,258)(372,307)])
link(onGetString,3919614:doCaption,[])
link(StrToFind,10027621:Text,[])
}
Add(Edit,10027621,336,196)
{
Left=30
Top=10
Width=320
Text="4;id4"
link(onEnter,8455902:doGetIndex,[(379,209)(379,185)(310,185)(310,293)])
}
Add(Math,12593334,385,301)
{
Op2=10
link(onResult,8455902:doGetString,[(422,307)(422,339)(310,339)(310,300)])
}

карма: 26
0
Ответов: 1304
Рейтинг: 405
#30: 2009-01-17 00:37:45 ЛС | профиль | цитата
nesco, подскажи пожалуйста, где хранится информация о проектах, у меня турнир превратился в борьбу с средой после попытки сохранить твою версию.
карма: 3

1
Голосовали:andrestudio
Сообщение
...
Прикрепленные файлы
(файлы не залиты)