Jump to content

Leaderboard

  1. Clément

    Clément

    Members

    • Points

      1

    • Content Count

      380

  2. Anders Melander

    Anders Melander

    Members

    • Points

      1

    • Content Count

      2581

Popular Content

Showing content with the highest reputation on 05/15/21 in Posts

  1. Anders Melander

    Getting Exception stack trace in 2021

    Anders Melander replied to Wagner Landgraf's topic in RTL and Delphi Object Pascal

    Potato, Phothatho
  2. Clément

    Micro optimization: Math.InRange

    Clément replied to Mike Torrettinni's topic in Algorithms, Data Structures and Class Design

    I love these topics. Under 64 bits: Math.InRange: 859 IsInRange: 858 If: 860 IsInRangeEx: 858 IsInRangeEx2: 858 Under 32bits: Math.InRange: 1288 IsInRange: 906 If: 906 IsInRangeEx: 858 IsInRangeEx2: 858 The code for IsInRangeEx and isInRangeEx2: function IsInRangeEx(const AValue, AMin, AMax: Cardinal): Boolean; inline; begin Result := (AValue - AMin) <= (aMax - aMin); end; function IsInRangeEx2(const AValue, AMin, AMax: Integer): Boolean; inline; begin Result := ((AValue-AMax)*(aValue-AMin) <= 0); end;
×