Перейти к содержанию

Задача на Delphi 7


Рекомендуемые сообщения

Надо запрограммировать калькулятор, а точнее только запятую!

1). Чтобы запятая нажималась один раз!

2) Чтобы если её удалиш Backspace'oм то её можно будет ещё раз поставить!

Ссылка на комментарий

В 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;

как то так

Ссылка на комментарий

сделал не помогло!

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;

Ссылка на комментарий
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;

Ссылка на комментарий

мля, так пишешь, как будто у тебя тут рабочий код, а я блин всё тебе испортил =D совсем уж совесть потеряли. объясняй нормально, что тебе надо, а не постфактум пиши.

обработчик на кнопке:

   if Pos(DecimalSeparator,Edit1.text) = 0 then Edit1.text:=Edit1.text+DecimalSeparator; 

Ссылка на комментарий

Saw~, ну чесссна, поставил бы тебе пару и отправил в академ с такими знаниями XD

Edit1.Text:=IntToStr (chislo1 mod StrToInt(Edit1.Text));

в chislo1 - это первый введенный параметр. или у тебя в калькуляторе вводят в виде: 10 mod 3 ?

Ссылка на комментарий
  • 1 месяц спустя...
  • 2 недели спустя...
какое тёмное будущее ждёт сферу IT с такими программерами...

+1 в сети полно исходников на Делфи, а калькулятор, так это 1 класс :wall::wall::wall: *49

Не скажи, если калькулятор однострочный, и без кнопок, то он по идеи разбор в ПОЛИЗ, и потом вычисление на стеке делать должен, в последний раз эта задачка заняла у меня 3 дня!

Ссылка на комментарий

L0K1, смотря на чем писать =D на лиспе всё просто =D да и пролог насколько помню легко с этим работает =) ну и стек использовать тоже конечно по желанию, можно не замарачиваться с динамическими структурами, благо сейчас оптимизация не сильно в моде =) технический прогресс куда быстрее шагает вперед =)

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...