Разбираемя с Методом On Key Press (!)

[bair42]

Доброй ночи всем! У меня возник вопрос. Небходимо написать калькулятор.

Всё уже сделал, осталась меленькая помарка. При вводе данных(переменные) в Edit у меня происходит обработка данных и вот такое условие

procedure TForm1.edtvvod2KeyPress(Sender: TObject; var Key: Char);

begin

begin
if (not(key in ['0'..'9',',','.','-',#8,' ']))then key:=#0 ;
p2:=form1.edtvvod2.Text;
if p2[1]<>'' then
begin
if (not(key in ['0'..'9',',','.',#8,' ']))then key:=#0;
end;
end

Друзья, обратите внимаение на множество которое сюда входит. В обном их них есть "--"(минус) в другом нету.

р2 - это строчка из Едита.

В общем нужно чтобы минус стоял на первом месте или вообще он игрнорировался. После запускания Кнопки Сброс Данных. У меня при 2-ой итерации минус вообще нигде не пишется(!)

Вот кнопка Cброса:

procedure TForm1.btncancelClick(Sender: TObject);
begin
actedt:=form1.edtvvod1;

form1.lbloper.Caption:='';
form1.edtvvod1.Clear;
form1.edtvvod2.Clear;
form1.Edit3.Clear;
p1:='';
p2:='';


end;


Скажите в чём обишка, заранее благодарен!!!

[Базиля]

Можно весь код?
А лучше всего если вы выложите весь проект сюда.

[bair42]

http://narod.ru/disk/42384787001.484...a47/1.rar.html Вот ссылка на Яндекс народ.

[Базиля]

Что-то я уже туго соображаю, как же я сразу то не заметил.
В общем проще говоря, задайте в условии на проверку всю строку, а не первый ее символ....
P.S. На самом деле очень много лишнего у вас в коде имеется. И условие у вас подобрано не совсем удачное для проверки....Ошибки по вводу все равно присутсвуют