Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Получить имена всех папок и файлов в директории
Категория: Файловая система
Категория: Файловая система
Функции дат в SQL
Категория: Базы данных
Категория: Базы данных
Как закачать файл из Интернета
Категория: Интернет и Сети
Категория: Интернет и Сети
Как подключить или отключить сетевой диск
Категория: Интернет и Сети
Категория: Интернет и Сети
Затенение компонента определенным цветом
Категория: Компоненты
Категория: Компоненты
Создать индекс для таблицы ABS (Absolute Database)
Категория: Базы данных
Категория: Базы данных
Проверить существование определённого URL
Категория: Базы данных
Категория: Базы данных
Найти все компьютеры в сети
Категория: Интернет и Сети
Категория: Интернет и Сети
Добавить данные в EXE файл и получить их
Категория: Файловая система
Категория: Файловая система
Вытащить значение поля в выделенных строках
Категория: Базы данных
Категория: Базы данных
Delphi - Справочник: Do
Do
|
1 for Variable := Expression to Expression do Statement; 2 while Expression do Statement 3 try Statements except on ExceptionClass do Statement; end; 4 with Expression do Statement |
Ключевое слово (Unit )
|
Определяет начало некоторого управляемого действия
|
Описание:
|
Ключевое слово Do всегда является частью одного из показанных 4 типов управления. Оно предшествует разделу инструкций (Statements) управляющего действия. |
Пример кода: Do
|
var i : Integer; begin // Инструкция for - ключевое слово do предшествует единственной инструкции for i := 1 to 3 Do ShowMessage('Цикл For, i = '+IntToStr(i)); // Инструкция while - do предшествует операторному блоку while i <6 Do begin ShowMessage('Цикл While, i = '+IntToStr(i)); Inc(i); end; end;
Результат:
|
Цикл For, i = 1 Цикл For, i = 2 Цикл For, i = 3 Цикл While, i = 4 Цикл While, i = 5 |