 Наведение в ТР |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| Good_Day |
 12.07.2003 4:42
Сообщение
#1
|
 Группа: Пользователи Сообщений: 3 Репутация:  0   |
Поможите людь добрый. Короче дело было к ночи.
Как сделать поменьше такой код: type but=record x,y,x1,y1:word end; mous=record x,y:word end; var m:mous; function Nav(t:but):boolean; begin {>>> >:(}if (t.x<m.x) and (t.y<m.y) and (t.x1>t.x) and(t.y1>t.y) >:( then Nav:=true; end; Нужно узнать что мыш наведена на кнопку, вычисляетца по размера кнопки. Можно ли покороче. -------------------- Good Day
|
   |
 
|
| AlaRic |
12.07.2003 8:17
Сообщение
#2
|
|
...  Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Зачем короче? Все гениальное просто - программа хорошо написана! Хотя мне кажется лучше это сделать без помощи функций или процедур - это легче будет!
|
|
|
|
| Noname |
12.07.2003 9:10
Сообщение
#3
|
|
Гость |
добавь еще
else nav:=false; так, на всякий случай... с функцией тоже неплохо - модульность появляется... |
|
|
|
| Andrey |
12.07.2003 9:24
Сообщение
#4
|
 Группа: Пользователи Сообщений: 5 Репутация: 0 |
Unknown...чистый код то пошустрей фурычит
 -------------------- Николасу Вирту тяжело давались в школе языки.Вот и выдумывал время от времени свое :-
|
|
|
|
| AlaRic |
12.07.2003 9:27
Сообщение
#5
|
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Цитата Unknown...чистый код то пошустрей фурычит Вот-вот...хотя такая прога в "любом виде" будет шустро работать, но теоретически модульность "тормозит"! |
|
|
|
| Noname |
12.07.2003 9:33
Сообщение
#6
|
|
Гость |
при современном аппаратном обеспечении, обсуждение данного вопроса не имеет смысла...
|
|
|
|
| ___ALex___ |
12.07.2003 18:38
Сообщение
#7
|
 Бывалый Группа: Пользователи Сообщений: 282 Репутация: 0 |
-=Unknown=-
чушь, начнёт иметь когда такой код будет "зацикливаться" и вообще какая бы не была скорость у проца пользователь всегда хочет видеть МАКСИМАЛЬНО эффективную программу на данной программно-аппаратной платформе |
|
|
|
| AlaRic |
12.07.2003 18:58
Сообщение
#8
|
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Хех я так думаю, что в данной ситуации никаких "зацикливаний" не предвидется!
|
|
|
|
| Noname |
12.07.2003 20:05
Сообщение
#9
|
|
Гость |
Полностью согласен. Циклы нужно оптимизировать.
но когда есть модульность - программисту проще (имхо). |
|
|
|
| GLuk |
12.07.2003 20:43
Сообщение
#10
|
|
Профи Группа: Пользователи Сообщений: 775 Пол: Мужской Репутация: 0 |
Оптимизировать на уровне исх. кодов или ассемблера??
|
|
|
|
| Noname |
12.07.2003 21:05
Сообщение
#11
|
|
Гость |
кому как нравится! и того и другое опционально...
|
|
|
|
| AlaRic |
13.07.2003 10:19
Сообщение
#12
|
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Цитата Оптимизировать на уровне исх. кодов или ассемблера?? Да погоди ты с асмой ;D ;D Оптимизация - вещь хорошая! |
|
|
|
| ___ALex___ |
13.07.2003 14:47
Сообщение
#13
|
|
Бывалый Группа: Пользователи Сообщений: 282 Репутация: 0 |
а кстати чё он сравнивает координаты кнопки с ней же
and (t.x1>t.x) and(t.y1>t.y) ;D |
|
|
|
| AlaRic |
13.07.2003 19:14
Сообщение
#14
|
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
Наверное так надо ;D
|
|
|
|
| ___ALex___ |
13.07.2003 20:57
Сообщение
#15
|
|
Бывалый Группа: Пользователи Сообщений: 282 Репутация: 0 |
может быть ему нравится писать левый код чтоб потом баги ловить ;D
|
|
|
|
| Good_Day |
8.08.2003 4:26
Сообщение
#16
|
|
Группа: Пользователи Сообщений: 3 Репутация: 0 |
Да. Код то не левый, сам ошибся! :-[ В проге то всё нормально, а здесь в торопях писал и ошбка. Нужно >> and (t.x1>m.x) and (t.y1>m.y)
-------------------- Good Day
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 24.07.2025 0:15 |