Облака / 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.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Объект экрана — Screen
   Категория: Компоненты
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети
  Узнать все IP-адреса компьютера
   Категория: Интернет и Сети
  Удалить пробелы в начале и конце
   Категория: Текст и строки
  Номер строки в memo под курсором
   Категория: Текст и строки
  Поиск по EasyTable
   Категория: Базы данных
  Что значит Paramstr
   Категория: Приложение
  Определить МАС-адрес карты
   Категория: Интернет и Сети
  Компонент PopupMenu
   Категория: Компоненты

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

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Program
Program Name;
... Code ...
end.
Ключевое слово (Unit System)
Определяет начало приложения
Описание:
Ключевое слово Program определяет начало приложения. Код выполняется после выполнения разделов инициализации всех модулей, на которые указывают в разделе Uses блока кода.

Когда код завершается, выполняются разделы завершения модулей, в обратном порядке.

Параметры, переданные программе, не определяются в инструкции Program, чтобы обработать их используйте такие функции как ParamStr.
Пример кода: Пример

//Program Project1;

{$AppType CONSOLE}

uses
 
SysUtils;

var
  name
: string;

begin
 
WriteLn('Пожалуйста, введите своё имя');
 
ReadLn(name);
 
WriteLn('Ваше имя - '+name);
 
WriteLn('');
 
WriteLn('Нажмите enter для выхода');
 
ReadLn(name);
end.

//Пример кода : Проектная часть приложения с графическим интерфейсом
Program Project1;

uses
 
Forms,
 
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
 
Application.Initialize;
 
Application.CreateForm(TForm1, Form1);
 
Application.Run;
end.


  << Вернуться