|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.02.2008, 22:22 | #1 |
Пользователь
Регистрация: 28.11.2007
Сообщений: 49
|
Оптимизировать код
Господа программисты, как можно оптимизировать нижеописанный код:
function ReceivePoint: TPoint; begin if X < 0 then begin Result := Point(-1, 0); SetTimer( Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc); end else if Y < 0 then begin Result := Point(0, -1); SetTimer(Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc); end else if (X > FDownCtrl.Width - TCustomRangeBar(FDownCtrl.ScrollBar s.Slave).Width) then begin Result := Point(1, 0); SetTimer( Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc); end else if (Y > FDownCtrl.Height - TCustomRangeBar(FDownCtrl.ScrollBar s.Master).Height) then begin Result := Point(0, 1); SetTimer(Handle, FKeyId_TranslocateIn, const_def_DELAYTRANSLOCATEIN, FlpTimerFunc); end else begin KillTimer(Handle, FKeyId_TranslocateIn); end; end; |
21.02.2008, 08:33 | #2 |
Участник клуба
Регистрация: 12.10.2007
Сообщений: 1,204
|
Я бы сделал так:
Для начала разобьем плоскость на 9 областей и произвольно пронумеруем их 1|2|3 ------ 4|5|6 ------ 7|8|9 Определим, в какую область попадает точка: Код:
Код:
Код:
Последний раз редактировалось alexBlack; 21.02.2008 в 08:44. |
21.02.2008, 08:57 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ябы просто аккуратно это переписал:
Код:
I'm learning to live...
Последний раз редактировалось Stilet; 21.02.2008 в 09:04. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите оптимизировать процедуру | Cold Went | Компоненты Delphi | 4 | 29.04.2008 15:11 |
Оптимизировать перегрузку операторов | Иллидан | Общие вопросы C/C++ | 14 | 24.04.2008 11:18 |
Помогите оптимизировать! | Altera | Общие вопросы Delphi | 6 | 25.03.2008 20:09 |
как может оптимизировать в фунцию? | w1ze | Помощь студентам | 2 | 07.01.2008 23:19 |
Помогите оптимизировать сайт | Nadejda | HTML и CSS | 4 | 07.01.2007 21:04 |