Калькулятор

[Morrowind1]

при нажатии кнопки '+' поле Edit1 очищается, а число записывается в переменную, как сделать чтобы число записалась но поле Edit1 не очистилось, а очистилось только после ввода нового числа как win calc

Зарание спасибо

//----------------------------------------------------- ââîä íà ýêðàí
procedure TForm1.Button1Click(Sender: TObject);
 begin
  edit1.Text:=edit1.Text+'0'
   end;

procedure TForm1.Button4Click(Sender: TObject);
  begin
   edit1.Text:=edit1.Text+'1'

    end;

procedure TForm1.Button5Click(Sender: TObject);
  begin
   edit1.Text:=edit1.Text+'2'
    end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'3'
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'4'
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'5'
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'6'
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'7'
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'8'
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
 edit1.Text:=edit1.Text+'9'
end;

//--------------------------------------------------------


procedure TForm1.Button16Click(Sender: TObject);
begin
 if edit1.Text <>'' then x:=strtofloat(edit1.Text);
 edit1.Clear;
 kod:='+'
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
 if edit1.Text <>'' then x:=strtofloat(edit1.Text);
 edit1.Clear;
 kod:='-'
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
 if edit1.Text <>'' then x:=strtofloat(edit1.Text);
 edit1.Clear;
 kod:='*'
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
 if edit1.Text <>'' then x:=strtofloat(edit1.Text);
 edit1.Clear;
 kod:='/'
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
 if  edit1.Text<>'' then y:=strtofloat(edit1.Text);
 case kod of
 '+': z:=x+y;
  '-': z:=x-y;
   '*': z:=x*y;
    '/': z:=x/y;
         end;
     edit1.text:= floattostr(z);
end;

end.

[tsar_]

1) Код нужно заключать в теги # (не Shift+3 у себя на клавиатурe, а кнопкой # в редакторе сообщения форума);
2)

сделать чтобы число записалась но поле Edit1 не очистилось,

Убрать из обработчиков строчку

Edit1.Clear;

3)

а очистилось только после ввода нового числа

Как вариант, после нажатия на (+, -, *, /) можно изменить свойство Tag у компонента Edit1 (по умолчанию оно равно нулю) на единицу, например. Т.е. добавить в соответствующие обработчики событий строчку:

Edit1.Tag:=1;

В обработчиках нажатия кнопок с цифрами (0...9) проверять значение Tag: если оно равно 0- добавлять цифры к остальным в строке, если 1- затирать Edit1, писать сначала и возвращать свойству Edit1.Tag значение ноль. Например:

procedure TForm1.Button1Click(Sender: TObject);
begin
case Edit1.Tag of
0: edit1.Text:=edit1.Text+'0';
1: begin
    Edit1.Clear;
    edit1.Text:=edit1.Text+'0';
    Edit1.Tag:=0;
    end;
end;

Вот как-то так. Код этот не проверял в работе, но логику вроде изложил

[Morrowind1]

Спасибо разобрался

[Morrowind1]

Подскажите вот что пожалуйста, в поле Edit вывод строки должен быть с правой стороны

[MyLastHit]

Подскажите вот что пожалуйста, в поле Edit вывод строки должен быть с правой стороны

Знакомься с гугл

Morrowind1, чисто такой вот полезный совет, создай массив TButton вместо того нагромождения кнопок, что у тебя там на форме, и работай как с массивом.
Код будет намного меньше и красивее.

[Morrowind1]

да уж сложновато пока для меня

[Morrowind1]

AnsiRightStr у меня делфи говарит что токого нет ?

[MyLastHit]

StrUtils там по моему надо в uses указать. Точно не помню.

[Morrowind1]

спасибо чувак