Функция возвращает массив

[Рик]

Здраствуйте. Хотел написать функцию, возврщающую целочисленный массив (арифметическая прогрессия). Пробывал так:

type SomeArray = array of integer;// объявляем указатель на динамический массив

function GetArr(Arr:SomeArray; arrLimit,fstElement,arrStep:integer ):Somearray;
var i: Integer;
begin
SetLength(Arr,arrLimit);//Устанавливаю количество элементов (длинну) массива
Arr[0]:=fstElement; //устанавливаю значение первого элемента массива (нумерация начин. с нуля)
For i:=0 To arrLimit Do
arr[i]:=fstElement + ((Arr[i] -1) * arrStep);
GetArr=Arr[0.. arrLimit];// пытаюсь тупо присвоить массив фунции
end;
Но Делфи ругается что не хватает параметров. Как быть?

[Прик]

function GetArr(arrLimit,fstElement,arrStep:integer ):Somearray;
var i: Integer;
begin
  SetLength(Result, arrLimit);
  Result[0] := fstElement;
  For i:=0 To High(Result) Do //High - функция, "знающая" сколько элементов в дин. массиве. Т.е. arrLimit - 1.
    Result[i] := fstElement + ((Result[i] -1) * arrStep);
end;

[chertovich]

>> High - функция, "знающая" сколько элементов
Функция High не определяет количество элементов, а максимальное значение. Количество определяет Length

[Прик]

Сообщение от chertovich

Функция High не определяет количество элементов, а максимальное значение. Количество определяет Length

Ну, извините, не так выразился. Само собой, поправка дельная.

[Рик]

Спасибо Прик, работает.

[Рик]

маленькая поправочка: вместо Result[i] := fstElement + ((Result[i] -1) * arrStep) следует писать : Result[i] := fstElement + (((Result[i] +1)-1 )* arrStep);