[davin4u]

Всем привет. Подскажите пожалуйста как получить результат работы функции, понимаю вопрос глупый, но все же не знаю как это сделать =)
есть функция:

Код:

function TStreetShow.GetStreetLength(index: integer): string;
begin
  Result:=self.FLength[index];
end;

Как я понимаю переменную Result не нужно нигде объявлять, она существует по умолчанию в дэлфи, как переменная для возврата результата работы функции. В нее я заношу нужные мне данные. Далее я пытался извлеч эти данные из функции следующим образом:
procedure TForm1.FShowClick(Sender: TObject);

Код:

begin
  FMyStreetsLength.Lines.Add(MyStreetShow.GetStreetLength(1));
end;

тут FMyStreetLength - компонент Memo, в него я пытаюсь занести то, что функция выполнила.
Результат- в Memo появляется пустая строка.
Заранее спасибо.

[Страдалецъ]

Ну поскольку вроде все правильно, предположу, что Result:=self.FLength[index] - действительно пустота. Проверьте отладчиком, что там реально находится, есть у меня подозрение, что вы с индексом элемента в массиве что-то путаете.

[davin4u]

Спасибо, нашел где была ошибка

[davin4u]

Возник еще один вопрос связанный с работой с функциями
Можно ли заносить в функцию 2 значения? если можно то как? потому что я пробовал, выдавалась ошибка, связанная с вводимыми в функцию типами данных, хотя оба вводимых значения были одного типа. Если нельзя вводить несколько значений, то можно ли как результат, вывести из функции двумерный массив?

вот пример того как я пытался делать:

Код:

Function GetMass(var num1:integer; num2:integer):integer;
begin
  Result:=num1+num2;
end;

заранее благодарен

[Страдалецъ]

Зачем вам здесь var в описании? Почитайте про передачу параметров.

Код:

Function GetMass(num1,num2:integer):integer;
begin
  Result:=num1+num2;
end;

Можно и двумерный массив:

Код:

Type
  TDualArray = array[1..2,1..2] of integer;

function DualArray: TDualArray;
begin

end;

[davin4u]

Попробовал сделать чтобы результатом работы функции был двумерный массив, возникла новая проблема =(
как теперь занести в другой массив результат работы функции? mass:=Board.DualArray, не выходит, ошибка в типах данных, mass-массив, а DualArray- класс TDualArray ?

[Страдалецъ]

Покажите какой именно тип у mass

[davin4u]

Код:

mass: array [1..8,1..8] of integer;

[:S.p.a.m.]

Сообщение от Страдалецъ

Зачем вам здесь var в описании? Почитайте про передачу параметров.

А затем и нужен чтобы значения из процедуры или функции возвратились наружу. Человеку чего нада? - чтобы функция возвратила два значения. Вот так и можно сделать это, правда можно вместо функции процедуру.
Подаем в нее две переменных, они каким то образом изменяются (уже внутри процедуры) и результат их изменения идет уже наружу в те же переменные, которые были поданы в качестве параметров в процедуру. Из-за двух переменных заводить массив както не так. Хотя я не знаю что это за переменные и какая стоит задача - может быть и правильное решение.

[davin4u]

В функции у меня получается массив данных, и мне его нужно вывести наружу, т.е. после того как функция все сделала что нужно было, переменной Result присваивается двумерный массив. Как мне теперь присвоить массиву находящемуся за пределами функции, значение этого Result ?

[Страдалецъ]

А затем и нужен чтобы значения из процедуры или функции возвратились наружу...

Мне-то как-раз это понятно, только вот в приведенном примере параметр переданный таким способом никак не обрабатывается и следовательно передавать его как var или out бессмысленно. Кроме того, судя по сообщению об ошибке, он в этот параметр пытался константу запихать. И какой вывод напрашивается?

А ошибка у вас возникает, потому как надо было задавать тип переменной и результат функции одинаковым, а не похожим внешне:

Код:

mass: TDualArray;

[davin4u]

теперь все работает, спасибо за помощ