Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
К-во рабочих дней в месяце
Категория: Математика
Категория: Математика
Подсветить часть текста в DBGrid
Категория: Компоненты
Категория: Компоненты
Как получить размер текстового файла, не открывая его
Категория: Текст и строки
Категория: Текст и строки
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Подсчет времени какого-либо события
Категория: Математика
Категория: Математика
Получить изображение формы в виде Bitmap и поместить его в буфер обмена
Категория: Компоненты
Категория: Компоненты
Перегенерировать все индексы Dbase
Категория: Базы данных
Категория: Базы данных
Упаковка ZIPTV
Категория: Компоненты
Категория: Компоненты
Как получить список устройств, подключённых к компьютеру
Категория: Файловая система
Категория: Файловая система
BDE. Динамическое создание псевдонима
Категория: Базы данных
Категория: Базы данных
Delphi - Справочник: Result
Result
|
var Result : Function-Return-Type; |
Переменная (Unit System)
|
Переменная, используемая для хранения возвращаемого значения функции
|
Описание:
|
Переменная Result используется, чтобы хранить значение результата, возвращенное функцией. Когда функция начинается, Delphi сам автоматически создает эту переменную. Она имеет тот же самый тип, как и возвращаемый тип функции. Результат может использоваться в функции повсюду, как будто она была явно объявлена. |
Пример кода: Вызов простой функции, которой присвоивается результат через Result
|
begin // Получение квадратов некоторых чисел ShowMessageFmt('Квадрат %d = %d',[2, SquareIt(2)]); ShowMessageFmt('Квадрат %d = %d',[8, SquareIt(8)]); end; // Простая функция, которая возвращает квадрат параметра function TForm1.SquareIt(value: Integer): Integer; begin // Возвращение значения в переменной Result Result := value * value; end;
Результат:
|
Квадрат 2 = 4 Квадрат 8 = 64 |
Примечание:
|
Если директива компилятора $ExtendedSyntax выключена, то вы должны использовать старый механизм возвращения - устанавливать результат функции в переменную с тем же самым названием что и функция. Такие переменные только для присвоения. |