Janilabo | TIAByRange()

{==============================================================================]
  Explanation: Returns a TIA that contains all the value from start value (aStart)
               to finishing value (aFinish)..
               Works both ways - High to Low and Low to High.
[==============================================================================}
function TIAByRange(aStart, aFinish: Integer): TIntArray;
var
  i: Integer;
begin
  if (aStart <> aFinish) then
  begin
    SetLength(Result, (IAbs(aStart - aFinish) + 1));
    if (aStart > aFinish) then
      for i := aStart downto aFinish do
        Result[(aStart - i)] := i
    else
      for i := aStart to aFinish do
        Result[(i - aStart)] := i;
  end else
    Result := [aStart];
end;

var
  TIA: TIntArray;

begin
  TIA := TIAByRange(-5, 5);
  WriteLn('TIAByRange(-5, 5): ' + TIAToStr(TIA));
  SetLength(TIA, 0);
  TIA := TIAByRange(5, -5);
  WriteLn('TIAByRange(5, -5): ' + TIAToStr(TIA));
  SetLength(TIA, 0);
end.