Особенности программирования в 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 <r then label1.caption:=inttostr(i)+'- Введи больше';
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 , быстро написать и скомпилировать.
Удачного программирования!
