Функция: возвращение нескольких значений.

[Вадим Буренков]

Можно ли сделать так, чтобы функция возвращала несколько значений(в моем случае два)?

[Kotofff]

Можно так :

type
  rec = record
    i:integer;
    r:real;
    end;
....
....
....
function TForm1.Func:rec;
begin
 // что-то делаем со значениями
 Result.i := одно значение;
 Result.r := второе значение;
end;

Используем что-то типа так :

Rez := Func;

Здесь Rez - переменная типа rec

[Пепел Феникса]

1 вариант:

type
 MyType=record
  FirstValue:string;
  SecondValue:string;
 end;

funcion MyFunc:MyType;
begin
 Result.FirstValue:='1';
 Result.SecondValue:='2';
end;

используем тип-запись для возврата нескольких значений

2 вариант:

procedure MyProc(var S1,S2:string);
begin
 S1:='1';
 S2:='2';
end;

используем var-параметры в процедуре
(то есть переменные ссылочного типа(все изменения переменной внутри процедуры отразятся на переменной которая была передана))