Особенности программирования в Delphi 1.

 Delphi 1 - первый продукт из линейки визуальных систем программирования, выпускаемых компанией Borland.Первое Delphi вышло в 1995 году, и в настоящее время его еще можно использовать в разработке.Здесь мы рассмотрим основные моменты, на которые надо обратить внимание, если программировать на Delphi 1. Установка программы не представляет никаких трудностей. Установка производится с 15 дискет,или с компакт-диска, на котором есть папки Disk1, Disk2, Disk3... Установочные файлы весят 20 Мб, а сама установленная и распакованная программа 98 Мб. Процесс установки сделан весьма оригинально:в виде едущего автомобиля, где спидометр показывает процент установки. Delphi 1 отлично работает на Windows 3.x - XP.

 Запустите программу после установки. Интерфейс почти не имеет отличий от Delphi 5,поэтому работа не представит трудностей. Все окна сгруппированы в левом верхнем углу экрана,и занимают область размером 640*480 точек, что является стандартом для Windows 3.X.

 Не будем разбираться с теорией, а перейдем к практике. Напишем на Delphi небольшую программку.Пусть это будет игра, где компьютер загадывает число, а нам надо его угадать. Мы вводим число,а программа говорит: больше оно загаданного или меньше. Создадим форму приложения: поместим на нее поле ввода чисел, надпись и кнопку.

 Теперь перейдем к редактированию самой программы. Тут есть одна трудность: Delphi 1 совсем не показывает подсказки,поэтому надо лучше знать язык Object Pascal, чтоб здесь программировать.Для программы нам понадобятся 2 переменные: задуманное число и количество попыток.Запишем их в поле Var.

 Var i,r:integer

 Теперь в обработчик события OnCreate запишем:

 Randomize;
 i:=1;
 r:=random(200)+1;

 Здесь генератор случайных чисел загадывает число от одного до двухсот. Теперь надо написать подпрограмму проверки числа.Для этого создадим процедуру, которая сравнивает введенное число с оригиналом, а результат сравнениявыводит на экран.Назовем эту процедуру Choos. Запишем ее объявление перед командой Private.

 Procedure choos;

 Комбинация клавиш CTRL+Shift+C в этой версии не предусмотрена (а жаль), поэтому основу процедурыпридется писать самому.

 Procedure Tform1.choos;
 begin
 end;

 Между Begin и End мы должны написать следующий код:

 If spinedit1.value  If spinedit1.value>r then label1.caption:=inttostr(i)+'- Введи меньше';
 If spinedit1.value=r then begin
 label1.caption:='Ураааа!!!!!';
 showmessage('Вы выиграли за '+inttostr(i)+' попыток');
 i:=1;
 r:=random(200)+1;
 End;

 В обработчик события Onclick кнопки Button1 запишем:

 Choos;
 i:=i+1;

 Запустите программу нажатием клавиши F9 и радуйтесь!

 Конечно, у этой версии есть большие недостатки, такие как отсутствие поддержки JPEG и OpenGL,неполная поддержка указателей и динамических массивов, короткие 8-ми символьные имена, поэтому профессиональную программу на нем не напишешь. Зато у него есть одно очень важное достоинство: скорость.Так как программа была адаптирована на старые компьютеры, на новых она работает очень быстро. Программы на Delphi 1 компилируются мгновенно, за доли секунды, что хорошо для небольших программ, которые делаешь сам для себя.Например, нам надо будет сделать программу, подобную той, которую мы делали выше.Для нее совсем необязательно ждать 5 минут, пока запустится Делфи 2010, и тратить на каждую компиляцию по 10 секунд, легче запустить делфи 1, быстро написать и скомпилировать.
 Удачного программирования!