Загрузка...

вопросы By Mikhail

Тема в разделе "Софт", создана пользователем Pro_Man, 25.02.2012.

  1. Pro_Man

    Pro_Man

    Статус:
    Оффлайн
    Регистрация:
    25.01.2012
    Сообщения:
    394
    Репутация:
    70 +/-
    что делать???
    unit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Edit4: TEdit;
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;
    a, b: real;
    implementation

    {$R *.dfm}
    procedure TForm1.Edit2Change(Sender: TObject);
    begin
    a:= form1.edit2.text;
    end;

    procedure TForm1.Edit2Change(Sender: TObject);
    begin
    read(b);
    b:= form1.edit2.text;
    end;

    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
    edit4.Text:=edit4.Text+'+'
    end;

    end.
    прогу написал, а не запускается)