[strikerok]

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

[strikerok]

по ходу возник еще один вопрос.. хочу создать кнопку типа "BackSpace" которая удаляла бы в поле Edit одну цифру...

[MegaPiha]

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

по ходу возник еще один вопрос.. хочу создать кнопку типа "BackSpace" которая удаляла бы в поле Edit одну цифру...

Как вариант.

Код:

Var s:string;
begin
    s:=Edit1.Text;
    SetLength(s,length(s)-1);
    Edit1.Text:=s;
end;

[strikerok]

спасибо всем =) но есть еще вопрос..
наложил на форму 10 кнопок (цифры от одного до девяти).. хочу сделать так чтобы при нажатии на кнопку цифра приписывалась к тому полю Edit, которое на данный момент активно, то есть на нем установлена мышка, но мозгов чтоб реализовать это не хватает =(( хелп ! плс

[Zylex]

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

спасибо всем =) но есть еще вопрос..
наложил на форму 10 кнопок (цифры от одного до девяти).. хочу сделать так чтобы при нажатии на кнопку цифра приписывалась к тому полю Edit, которое на данный момент активно, то есть на нем установлена мышка, но мозгов чтоб реализовать это не хватает =(( хелп ! плс

Если вы кликаете на кнопке мышкой, то фокус переходит на нее, по этому в тот момент, когда вы кликаете на кнопке, edit не может быть активен

[Grunch]

В едиты добавить события на OnExit и там сохранять на каком едите был фокус

[Reani]

На счет бекспейса не знаю, но может это поможет....

begin
edit1.Clear;
form1.ActiveControl:=edit1;
end;

Точно непомню.. Давно писал сам каллькулятор..

[Кодер]

напиши конкретно что тебе надо..не совсем понял

[MegaPiha]

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

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

Ошибка может быть по разным причинам. Например вводишь точку вместо запятой.
Сложение чисел с плавающей точкой

Код:

 Edit3.Text:=FloatToStr(StrToFloat(Edit1.text)+StrToFloat(Edit2.text));