Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

Функции в Delphi   Найти похожие ветки 

 
Id   (2006-08-02 16:24) [0]

Еще раз здраствуйте.
Вопрос по function.
Ee можно использовать для получения какого-то результата с входными параметрами. Выходной параметр один - Result.
А если мне надо несколько выходных параметров?
Подскажите синтаксис.(Если это возможно)


 
Alkid ©   (2006-08-02 16:30) [1]

Это можно сделать несколькими методами.
Самый простой: определять параметры по ссылке:

function sumAndCheck(a,b : integer;var c : integer) : boolean;
begin
 c := a + b;
 Result := c < 10;
end;

Данная функция суммирует 2 числа и возвращает true, если сумма меньше 10.
При этомо на так же возвращает И результат - через параметр c.

Синтаксис для вызова:

var r : integer;
    b : boolean;

begin
  b :=  sumAndCheck(10,15,r);
end;

Теперь в b - результат сравнения,  а  в r - сумма


 
Zeqfreed ©   (2006-08-02 16:35) [2]

function SomeRoutine(out OutParam; var VarParam) : ReturnParam;
begin
 OutParam := VarParam;
 Result := Whatever;
end;


See Also: Delphi Help: Parameter semantics


 
Сергей М. ©   (2006-08-02 16:37) [3]


> А если мне надо несколько выходных параметров?


К функции как таковой это отношения не имеет.


 
Desdechado ©   (2006-08-02 16:40) [4]

У тебя Result может быть и массивом типизированным или даже разнотипным, если он Variant.
Не запутайся только.
Возврат функцией нескольких значений, особенно разнотипных, говорит о плохом проектировании.


 
Id   (2006-08-02 16:52) [5]

Огромное спа!


 
Ega23 ©   (2006-08-02 17:06) [6]

Как Result ты можешь и класс и рекорд получить. А в нём уже всё, что тебе надо.

type
 TОфигеннаяСтруктура=record
    ОфигенныйПараметр1 : Boolean;
    ОфигенныйПараметр2 : Integer;
    ОфигенныйПараметр3 : String;
   ............
 end;

function Ля_ля:TОфигеннаяСтруктура;




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

Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.044 c
5-1138109150
Юрий Ж.
2006-01-24 16:25
2006.08.20
[s]RxLib for Delphi2006


1-1152189271
kyn66
2006-07-06 16:34
2006.08.20
Запуск файла картинки


2-1154507733
Id
2006-08-02 12:35
2006.08.20
Word and Delphi


2-1153952634
vain
2006-07-27 02:23
2006.08.20
Проект привык к dll


15-1153989001
Alert2006
2006-07-27 12:30
2006.08.20
Координаты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский