Урок Delphi 7 – пишем первую программу

Всем привет!

И так, я сам не профессиональный программист (да и программистом себя назвать боюсь) теории и всякой прочей не нужной чепухи я не буду писать, т.к. сам по себе знаю — Без практики, не чего не добьешься. О как. Начнем?) Я так думаю можно и начинать.

Вот мы включили Delphi, начинаем придумывать — А что бы такое сделать?)

Первый урок от меня называется так — Я хочу знать правду!!!!

Делаем форму как у меня на скрине, добавляем Кнопку(button) и Строчку(label1) — добавить функцию wordWrap.

Все, визуальная работа окончилась, теперь мы перейдем к нашему коду.

Сегодня мы познакомимся с такой вещью как — Рандомный ответ. (Сначала текстом объясню, а затем уже и скрин выложу). В самом начале, мы добавим в uses модуль (или как их там называют) registry.

Пример:

   
   uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,registry;

Дальше, мы в визуальной (а можно и самостоятельно натыкать код) вызываем процедуру (обработчи¬к событий) OnClick по нашей кнопке.

Появляется вот такая штука перед вашими очами:

   
   procedure TForm1.Button1Click­(Sender: TObject);
   Begin

   end;
   end.

Будем заниматься программированием:)

Для начала создадим эвент (переменную), повыше begin напиши var и начнем строчить начальный код, вызовем переменную только в этом действие.

   
   procedure TForm1.Button1Click­(Sender: TObject);
   var
   and: integer; // не помню для чего
   reg: tregistry; // вообще лишнее, но потом объясню для чего))
   begin

   end;
   end.

Идем далее, пишем действие при клики))

   
   procedure TForm1.Button1Click­(Sender: TObject);
   var
   ans:integer;
   reg:tregistry;
   begin
    randomize; // не помню для чего, чет с рандомом связано.
    ans:=random(5);
    case ans of
     0:label1.caption:='­Возможно, обратись к специалисту';
     1:label1.caption:='­ Это уже доказано наукой, дружок мой';
     2:label1.caption:='­ Не знаю, не знаю, а ты сам как думаешь?';
     3:label1.caption:='­ Возможно..эмм..каль­кулятор тебя спасет!!';
     4:label1.caption:='­ Расстрелять тебя надо, за такой вопрос';
    end;
   end;
   end.

Наша миссия выполнена, запускаем и тыкаем.

Программа будет давать рандом ответы. Поэкспериментируйте¬ со своими новыми знаниями и попробуйте создать новое из старого.

Код всей программы:

   
   unit Unit1;

   interface

   uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls,registry;

   type
   TForm1 = class(TForm)
   Button1: TButton;
   Label1: TLabel;
   procedure Button1Click(Sender­: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;

   var
    Form1: TForm1;

   implementation

   {$R *.dfm}

   procedure TForm1.Button1Click­(Sender: TObject);
   var
   ans:integer;
   reg: tregistry;
   begin
   randomize;
   ans := random(5);
   case ans of
     0:label1.caption:='­Возможно, обратись к специалисту';
     1:label1.caption:='­ Это уже доказано наукой, дружок мой';
     2:label1.caption:='­ Не знаю, не знаю, а ты сам как думаешь?';
     3:label1.caption:='­ Возможно..эмм..каль­кулятор тебя спасет!!';
     4:label1.caption:='­ Расстрелять тебя надо, за такой вопрос';

    end;
   end;
   end.

Скриншот:

Интересно будет посмотреть на ваши версии.