Справочник функций и процедур Delphi: Out

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

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


Описание
Директива Out идентифицирует параметр функции или процедуры, являющийся переменной ссылкой только для выведения.

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

Delphi не предписывает это, и при этом это, кажется, не предписывает потребность присвоения значение.
Похожие команды
Const  Начинает определение данных с установленными значениями

Function  Определяет подпрограмму, которая возвращает значение

Procedure  Определяет подпрограмму, которая не возвращает значение

Var  Начинает раздела определения переменных

 
Пример кода : Демонстрация всех трёх типов обработки параметров
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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram