Saw~ Опубликовано 10 февраля, 2010 Жалоба Поделиться Опубликовано 10 февраля, 2010 Надо запрограммировать калькулятор, а точнее только запятую!1). Чтобы запятая нажималась один раз!2) Чтобы если её удалиш Backspace'oм то её можно будет ещё раз поставить! Цитата Ссылка на комментарий
TolkienDRR Опубликовано 10 февраля, 2010 Жалоба Поделиться Опубликовано 10 февраля, 2010 мда, ну и описание. сделай кнопочный калькулятор и будет тебе счастье Цитата Ссылка на комментарий
Innk Опубликовано 11 февраля, 2010 Жалоба Поделиться Опубликовано 11 февраля, 2010 В Edit1KeyPressвставь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;как то так Цитата Ссылка на комментарий
TolkienDRR Опубликовано 11 февраля, 2010 Жалоба Поделиться Опубликовано 11 февраля, 2010 Innk=D а я вообще не понял поставленной задачи )) увидев код сразу понятно стало =D Цитата Ссылка на комментарий
Saw~ Опубликовано 14 февраля, 2010 Автор Жалоба Поделиться Опубликовано 14 февраля, 2010 сделал не помогло!procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begincase 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; Цитата Ссылка на комментарий
TolkienDRR Опубликовано 14 февраля, 2010 Жалоба Поделиться Опубликовано 14 февраля, 2010 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin case key of #8,'0'..'9': ; ',','.' : begin if Key <> DecimalSeparator then Key := DecimalSeparator; if Pos(DecimalSeparator,Edit1.text) <> 0 then Key := chr(0); end; else key:=chr(0); end;end; Цитата Ссылка на комментарий
Saw~ Опубликовано 15 февраля, 2010 Автор Жалоба Поделиться Опубликовано 15 февраля, 2010 TolkienDRRТвой код работает только если ты вводишь с клавиатуры, а мне надо чтобы с клавиатуры и кнопкой! Цитата Ссылка на комментарий
TolkienDRR Опубликовано 15 февраля, 2010 Жалоба Поделиться Опубликовано 15 февраля, 2010 мля, так пишешь, как будто у тебя тут рабочий код, а я блин всё тебе испортил =D совсем уж совесть потеряли. объясняй нормально, что тебе надо, а не постфактум пиши.обработчик на кнопке: if Pos(DecimalSeparator,Edit1.text) = 0 then Edit1.text:=Edit1.text+DecimalSeparator; Цитата Ссылка на комментарий
Shady_G Опубликовано 15 февраля, 2010 Жалоба Поделиться Опубликовано 15 февраля, 2010 Saw~procedure TForm1.button1Click(Sender: TObject);beginif edit1.text<>'' thenbeginif((pos(',',edit1.text)=0)and(form1.edit1.Text[Length(edit1.Text)]<>'-')) thenedit1.text:=edit1.text+',';end;end; Цитата Ссылка на комментарий
Saw~ Опубликовано 16 февраля, 2010 Автор Жалоба Поделиться Опубликовано 16 февраля, 2010 Помогите запрограммировать mod, div, and, not, xor, orОч надо до пятницы! Цитата Ссылка на комментарий
TolkienDRR Опубликовано 16 февраля, 2010 Жалоба Поделиться Опубликовано 16 февраля, 2010 они изначально есть же.procedure TForm1.button1Click(Sender: TObject);begin Edit3.Text:=IntToStr (StrToInt(Edit1.Text) mod StrToInt(Edit2.Text));end; Цитата Ссылка на комментарий
Saw~ Опубликовано 16 февраля, 2010 Автор Жалоба Поделиться Опубликовано 16 февраля, 2010 TolkienDRRМне надо в ввиде калькулятора!Там должен быть один Edit! Цитата Ссылка на комментарий
TolkienDRR Опубликовано 16 февраля, 2010 Жалоба Поделиться Опубликовано 16 февраля, 2010 Saw~, ну чесссна, поставил бы тебе пару и отправил в академ с такими знаниями XDEdit1.Text:=IntToStr (chislo1 mod StrToInt(Edit1.Text));в chislo1 - это первый введенный параметр. или у тебя в калькуляторе вводят в виде: 10 mod 3 ? Цитата Ссылка на комментарий
goH Опубликовано 19 марта, 2010 Жалоба Поделиться Опубликовано 19 марта, 2010 Saw~, ну чесссна, поставил бы тебе пару и отправил в академ с такими знаниями XDвзаимна Цитата Ссылка на комментарий
Lucky Опубликовано 2 апреля, 2010 Жалоба Поделиться Опубликовано 2 апреля, 2010 какое тёмное будущее ждёт сферу IT с такими программерами... Цитата Ссылка на комментарий
Petrovichtim Опубликовано 3 апреля, 2010 Жалоба Поделиться Опубликовано 3 апреля, 2010 какое тёмное будущее ждёт сферу IT с такими программерами...+1 в сети полно исходников на Делфи, а калькулятор, так это 1 класс *49 Цитата Ссылка на комментарий
L0K1 Опубликовано 3 апреля, 2010 Жалоба Поделиться Опубликовано 3 апреля, 2010 какое тёмное будущее ждёт сферу IT с такими программерами...+1 в сети полно исходников на Делфи, а калькулятор, так это 1 класс *49Не скажи, если калькулятор однострочный, и без кнопок, то он по идеи разбор в ПОЛИЗ, и потом вычисление на стеке делать должен, в последний раз эта задачка заняла у меня 3 дня! Цитата Ссылка на комментарий
TolkienDRR Опубликовано 3 апреля, 2010 Жалоба Поделиться Опубликовано 3 апреля, 2010 L0K1, смотря на чем писать =D на лиспе всё просто =D да и пролог насколько помню легко с этим работает =) ну и стек использовать тоже конечно по желанию, можно не замарачиваться с динамическими структурами, благо сейчас оптимизация не сильно в моде =) технический прогресс куда быстрее шагает вперед =) Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.