Создать простую программу.

Вот тебе полный код программы

Code:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text='1110'  then showmessage ('privet')
else if edit1.text='1100' then showmessage ('hello')
else showmessage ('error');
end;

end.

Исходники программы и сама скомпилированная программа
Скачивай http://www.sendspace.com/file/gd2z2y

 

Нажал ctrl + F9,в итоге:





Потом жму на зеленый треугольник (плей),кнопка включается,но без ре-зов при вводе текста.

 

Я уже все сделал готовое. Твоя задача только скачать и запустить

 

Спасибо,вечером отпишусь тут.

 

Спасибо огромное за помощь!
Как изменить фон окна и назву окна?

 

Кликаешь на окно в редакторе формы, в object inspector свойство caption отвечает за заголовок окна, а color за цвет фона.

 

Скажи какой тебе нужен фон, и какое название?

 

Вже разобрался.
Огромное спасибо вам,выручили!

 

шо за хавнакод?
во первых, если вариантов условия больше 2х, то лучше использовать case.
Во-вторых, если вывод все равно в showmessage, то тогда и ввод использовать тоже в мессадже Querry

 

Со вторым согласен.

 

во-первых, если множество вариантов проще сделать таблицу и проходить по ней в цикле.во-вторых нахуэ извращаться и так далее если человек просил простой пример?