[NeiL]

Господа программисты, как можно оптимизировать нижеописанный код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

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.ScrollBars.Slave).Width) then    begin      Result := Point(1,  0);      SetTimer(      Handle, FKeyId_TranslocateIn,        const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);    end    else    if (Y > FDownCtrl.Height -         TCustomRangeBar(FDownCtrl.ScrollBars.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;

[XIO]

Можно попробовать вот так:
(если прокатит)

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

function ReceivePoint: TPoint;  Function SomeName(X,Y:integer):Variant;   begin     SomeName := Point(X, Y);     SetTimer(Handle, FKeyId_TranslocateIn,        const_def_DELAYTRANSLOCATEIN, FlpTimerFunc);   end;  begin    if X < 0 then    begin      Result := SomeName(-1, 0);    end    else    if Y < 0 then    begin      Result := SomeName(0, -1);    end    else    if (X > FDownCtrl.Width -        TCustomRangeBar(FDownCtrl.ScrollBars.Slave).Width) then    begin      Result := SomeName(1,  0);    end    else    if (Y > FDownCtrl.Height -         TCustomRangeBar(FDownCtrl.ScrollBars.Master).Height) then    begin      Result := SomeName(0,  1);    end    else    begin      KillTimer(Handle, FKeyId_TranslocateIn);    end;  end;

Но по большому счету это оптимизация структуры самого кода. На быстродействие врят ли как то повлияет....