Как из функции получить несколько значений?

[Женя32]

Здравствуйте!
Подскажите, пожалуйста, как из функции получить сразу несколько значений?

[Arigato]

Либо через параметры, переданные по ссылке, либо возвращать тип record.

[digitalis]

Не обязательно record. Если возвращаемые данные одного типа - можно через array.

type ar2 = array[0..1] of Extended ;
........................... 
procedure TForm1.Button3Click(Sender: TObject);
var t: ar2 ;

function Two_Res(arg1,arg2:Extended) : ar2 ;
var tmp: ar2 ;
begin
  tmp[0] := arg1+ arg2 ;
  tmp[1] := arg1- arg2 ;
  Result := tmp
end;

begin
   t := Two_Res(3.0,5.0) ;
   S.Lines.Add(Format('%6.1f %6.1f',[t[0],t[1]]))
end;

Результат:
8,0 -2,0

[Arigato]

Да в общем и объект можно вернуть.

[Женя32]

Функция должна возвращать три значения, два типа String, и один Integer.

function getWords(var s1, s2: String; var n Integer): Integer; export;
begin
    s1:='Go';
    s2:='Stop';
    result:=27;
end;

Я правильно сделал? Если да, то как в программе получить эти значения?

[BDA]

res := getWords(s1, s2, n);
// тут использовать s1, s2, res

[Женя32]

Спасибо большой! Все получилось!

[digitalis]

Сообщение от Женя32

Функция должна возвращать три значения, два типа String, и один Integer.

function getWords(var s1, s2: String; var n Integer): Integer; export;
begin
    s1:='Go';
    s2:='Stop';
    result:=27;
end;

Ну если она - функция, то

var n Integer

вроде как лишнее - Integer возвращается в виде значения функции, и в данном примере оно не используется.

[Kronos913]

Кстати, у меня схожий вопрос:
Можно ли в case засунуть одновременно несколько переменных?

То есть чтобы дерево вариантов строилось не от значения одной переменной, а от значений нескольких (двухмерное дерево)

[Arigato]

Вложенные case-ы можно использовать.