Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Шифрование текста по паролю
   Категория: Текст и строки
  Находится ли мышь над формой
   Категория: Компоненты
  Найти все компьютеры в сети
   Категория: Интернет и Сети
  Как соединить несколько файлов в один
   Категория: Файловая система
  Вычислить логарифм
   Категория: Математика
  Замена подстроки в строке
   Категория: Текст и строки
  Как закачать файл из Интернета
   Категория: Интернет и Сети
  Cколько файлов есть в определённой папке
   Категория: Файловая система
  Распознавание кодировки. Перекодировка.
   Категория: Текст и строки

Delphi - Справочник: Out

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Out
Routine name(... Out OutputVarName : type; ...)
Деректива (Unit )
Идентифицирует стандартный параметр только для вывода
Описание:
Директива Out идентифицирует параметр функции или процедуры, являющийся переменной ссылкой только для выведения.

Это позволяет подпрограмме возвращать данные переменной вызывающей программы в дополнение к значению Result, доступного в функциях. Это эквивалентно Var за исключением того, что значение не может быть изменено подпрограммой.

Delphi не предписывает это, и при этом это, кажется, не предписывает потребность присвоения значение.
Пример кода: Демонстрация всех трёх типов обработки параметров

var
  number1
, number2, number3 : Integer;
begin
 
// Присвоение значений нашим числам
  number1
:= 3;
  number2
:= 4;
  number3
:= 5;

 
// Вызов простой подпрограммы, чтобы увидеть как они обработываются
 
ThreeParms(number1, number2, number3);

 
// Показ их значений
 
ShowMessageFmt('number1 = %d number2 = %d number3 = %d ',
                 
[number1, number2, number3]);
end;

// Простая подпрограмма, иллюстрирующая 3 типа обработки параметра
// value1: только входное значение
// value2: только выходное значение
// value2: входное и выходное значение
procedure
TForm1.ThreeParms(    value1: Integer;
                           
Out value2: Integer;
                           
var value3: Integer);
begin
 
// Добавление value1 к value3 как выходное значение value2
  value2
:= value1 + value3;

 
// Умножение value1 на value3, чтобы передать вывод value3
  value3
:= value1 * value3;
end;

Результат:
number1 = 3 number2 = 8 number3 = 15

  << Вернуться