Получение нескольких Результатов функции

← →
Zike © (2002-11-15 11:01) [0]

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

← →
Skier © (2002-11-15 11:04) [1]

>Zike
Можно использовать параметр с модификаторов var

function YourFunction(const AParam1, AParam2 : TParamType;
var AResult : TResultType1) : TResultType2

← →
Dimka Maslov © (2002-11-15 11:06) [2]

type
TResultRec = record
Res1, Res2: Integer;
end;

function YourFunction(Param: Integer): TResultRec
begin
Result.Res1:=...;
Result.Res2:=...;
end;

← →
OlegMsc © (2002-11-15 11:10) [3]

type
TMas = array [0..2] of integer;

function ReturnTwo:TMas;
var v:TMas;
begin
v[0]:=1; v[1]:=2;
Result:=v;
end;

← →
Юрий Федоров © (2002-11-15 11:12) [4]

>>Skier © (15.11.02 11:04)
Лучше даже не var а out параметр

← →
Skier © (2002-11-15 11:13) [5]

>OlegMsc
А как же v[2]:=???; :))

← →
stone © (2002-11-15 11:16) [6]

а почему бы не использовать процедуру?
procedure MyProc(AParam1, AParam2 : TParamType;
var AResult1, AResult2 : TResultType1);

← →
Skier © (2002-11-15 11:16) [7]

>Юрий Федоров
Насколько я помню out является более эффективным только
когда параметр - интерфейс

v[2]:=???;

не компилит - пишет Illegal character in input file: "?"
не знаю чо за глюк :))))

Спасибо, мужики.

Получение нескольких Результатов функции Найти похожие ветки