Оффтоп:
Цитата:
|
Сообщение от M.A.D.M.A.N.
...код можно сильно сократить.
|
Да не то слово, сильно - очень сильно
По теме:
Для начала, замените процедуры кликов кнопок "0".."9" и "," на одну такую
Код:
procedure TForm1.BitBtn20Click(Sender: TObject);
begin
Edit1.Text:= Edit1.Text + (Sender as TBitButton).Caption;
end;
и присвойте её им всем. На кнопках надеюсь, только эти символы и есть.