Урок по 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.
Будем заниматься программированием :D
Для начала создадим эвент(переменную), повыше
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.

СкринШот:


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

Мир - это игра?)

[center][color=#FF4000][i][size=150]Кто я?? Зачем я существую??? Реальность — это игра???[/size][/i][/color][/center]

[center][img]http://s02.radikal.ru/i175/1106/75/d0848054c3e3.jpg[/img][/center]