Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: 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 вся ветка

Текущий архив: 2002.11.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
14-82984
TCrash
2002-11-07 12:01
2002.11.25
литература On-line


1-82784
Крот
2002-11-13 09:26
2002.11.25
Тайна синего экрана


4-83068
bedboy
2002-10-15 09:52
2002.11.25
handle


4-83037
_sMile
2002-10-11 06:52
2002.11.25
Как получить название проигрываемой песни в Winamp?


14-82979
DeMoN-777
2002-11-07 04:45
2002.11.25
Бобровский