Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получение нескольких Результатов ;функции [D1, D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

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

Skier (2002-11-15 11:19:00) [1]
>OlegMsc © (15.11.02 11:17)
Delphi глючит ! Переходи на Basic ! :)))

OlegMsc (2002-11-15 11:17:00) [2]
v[2]:=???;

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

Zike (2002-11-15 11:17:00) [3]
Спасибо, мужики.

stone (2002-11-15 11:16:00) [4]
а почему бы не использовать процедуру?
procedure MyProc(AParam1, AParam2 : TParamType;
var AResult1, AResult2 : TResultType1);

Skier (2002-11-15 11:16:00) [5]
>Юрий Федоров
Насколько я помню outявляется более эффективным только
когда параметр - интерфейс

Skier (2002-11-15 11:13:00) [6]
>OlegMsc
А как же v[2]:=???; :))

Юрий Федоров (2002-11-15 11:12:00) [7]
>>Skier © (15.11.02 11:04)
Лучше даже не varа outпараметр

OlegMsc (2002-11-15 11:10:00) [8]
type
TMas = array [0..2] of integer;

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

Dimka Maslov (2002-11-15 11:06:00) [9]
type
TResultRec = record
Res1, Res2: Integer;
end;

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

Skier (2002-11-15 11:04:00) [10]
>Zike
Можно использовать параметр с модификаторов var

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »