-
Постов
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м то её можно будет ещё раз поставить!
-
-
Самая лучшая серия 12 имхо!
-
Отличный сериал всем советаю!
Фото мужчин всей Бурятии!
в Беседка
Опубликовано