Saw~
-
Постов
13 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Весь контент Saw~
-
-
TolkienDRR Мне надо в ввиде калькулятора! Там должен быть один Edit!
-
Помогите запрограммировать mod, div, and, not, xor, or Оч надо до пятницы!
-
TolkienDRR Твой код работает только если ты вводишь с клавиатуры, а мне надо чтобы с клавиатуры и кнопкой!
-
сделал не помогло! procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case key of #8,'0'..'9',',':; else key:=chr(0); end; If (Key=',') or (Key='.') then begin begin if Key <> DecimalSeparator then Key := DecimalSeparator; if Pos(DecimalSeparator,Edit1.text) <> 0 then Key := Chr(0); end; end; end;
-
Надо запрограммировать калькулятор, а точнее только запятую! 1). Чтобы запятая нажималась один раз! 2) Чтобы если её удалиш Backspace'oм то её можно будет ещё раз поставить!
-
*157