примитивная программа в делфи: на форме есть едит, в который надо вводить число, и кнопка для суммирования

[Иван992]

прошу помочь в создании примитивной программы в делфи.
на форме есть едит в который надо вводить число
есть кнопка-1 которая должна при нажатии запоминать число из эдита и суммировать со следующим введёным числом
и вторая кнопка которая будет результат выводить в Label
во в обще вся суть задачи прошу помочь или написать в личку на почту

[Serge_Bliznykov]

Ваня, и что не получается?
Запустить Delphi? Или создать новый VCL проект?
Или на форму положить один Edit, один Label и две кнопки?
Или код, который на кнопках будет, не понятно, как написать?

[Иван992]

Сообщение от Serge_Bliznykov

Ваня, и что не получается?
Запустить Delphi? Или создать новый VCL проект?
Или на форму положить один Edit, один Label и две кнопки?
Или код, который на кнопках будет, не понятно, как написать?

нет всё я сделал я код не знаю какой написать
прошу помощи )

[Serge_Bliznykov]

вот код (если я правильно понял задачу):

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    SumAccumulator : real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SumAccumulator := 0;
  Edit1.Text := '0';
end;


procedure TForm1.Button1Click(Sender: TObject);
var curValue : real;
begin
   try
     curValue := StrToFloat(Edit1.Text);
     SumAccumulator := SumAccumulator + curValue;
     Edit1.Text := '0';
     Edit1.SetFocus;
   except
     ShowMessage('Ошибка! В Edit1 нужно ввести число!')
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := FloatToStr(SumAccumulator)
end;

p.s. процедуру FormCreate назначить на событие создания формы OnCreate
процедуру Button1Click на клик по первой кнопке
процедуру Button2Click на клик по второй кнопке


p.p.s. в примере написан код для обработки вещественных (дробных) чисел.
Если нужно суммировать целые числа, то, для целых чисел можно заменить real на Integer, FloatToStr на IntToStr, StrToFloat на StrToInt ...

[Иван992]

Сообщение от Serge_Bliznykov

вот код (если я правильно понял задачу):

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    SumAccumulator : real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  SumAccumulator := 0;
  Edit1.Text := '0';
end;


procedure TForm1.Button1Click(Sender: TObject);
var curValue : real;
begin
   try
     curValue := StrToFloat(Edit1.Text);
     SumAccumulator := SumAccumulator + curValue;
     Edit1.Text := '0';
     Edit1.SetFocus;
   except
     ShowMessage('Ошибка! В Edit1 нужно ввести число!')
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := FloatToStr(SumAccumulator)
end;

p.s. процедуру FormCreate назначить на событие создания формы OnCreate
процедуру Button1Click на клик по первой кнопке
процедуру Button2Click на клик по второй кнопке


p.p.s. в примере написан код для обработки вещественных (дробных) чисел.
Если нужно суммировать целые числа, то, для целых чисел можно заменить real на Integer, FloatToStr на IntToStr, StrToFloat на StrToInt ...

Огромное спасибо
не удаляйте тему денёк )

[Иван992]

Сергей спасибо всё работает отлично )