Скачать: CL | DM;

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

← →
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 является более эффективным только
когда параметр - интерфейс

---

← →
OlegMsc ©   (2002-11-15 11:17) [8]

v[2]:=???;

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

---

← →
Zike ©   (2002-11-15 11:17) [9]

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

---

← →
Skier ©   (2002-11-15 11:19) [10]

>OlegMsc © (15.11.02 11:17)
Delphi глючит ! Переходи на Basic ! :)))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c