Jump to content

Saw~

Users
  • Content Count

    13
  • Joined

  • Last visited

Community Reputation

0 Нейтрально

About Saw~

  • Rank
    Рядовой пользователь
  1. Британские ученые разгадали загадку о курице и яйце Британские ученые дали ответ на вопрос, который многие годы ставил в тупик самые блестящие умы человечества: что появилось первым — курица или яйцо. Согласно данным последних исследований, первой все-таки появилась курица. Ученые из университетов городов Шеффилда и Уорика провели работу с помощью мощного компьютера, который смоделировал на генетическом уровне процесс появления куриного яйца. Как отмечают британские мужи науки, ключевую роль в его формировании играет протеин овоклединин-17 или ОС-17. Он участвует в создании яичной скорлупы. Бе
  2. TolkienDRR Мне надо в ввиде калькулятора! Там должен быть один Edit!
  3. Помогите запрограммировать mod, div, and, not, xor, or Оч надо до пятницы!
  4. TolkienDRR Твой код работает только если ты вводишь с клавиатуры, а мне надо чтобы с клавиатуры и кнопкой!
  5. сделал не помогло! 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;
  6. Надо запрограммировать калькулятор, а точнее только запятую! 1). Чтобы запятая нажималась один раз! 2) Чтобы если её удалиш Backspace'oм то её можно будет ещё раз поставить!
×
×
  • Create New...