Задача на Delphi 7

[Saw~]

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

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

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

[TolkienDRR]

мда, ну и описание. сделай кнопочный калькулятор и будет тебе счастье

[Innk]

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

Innk

=D а я вообще не понял поставленной задачи )) увидев код сразу понятно стало =D

[Saw~]

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

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;

[TolkienDRR]

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~]

TolkienDRR

Твой код работает только если ты вводишь с клавиатуры, а мне надо чтобы с клавиатуры и кнопкой!

[TolkienDRR]

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

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

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

[Shady_G]

Saw~

procedure TForm1.button1Click(Sender: TObject);
begin
if edit1.text<>'' then
begin
if((pos(',',edit1.text)=0)and(form1.edit1.Text[Length(edit1.Text)]<>'-')) then
edit1.text:=edit1.text+',';
end;
end;

[Saw~]

Помогите запрограммировать mod, div, and, not, xor, or

Оч надо до пятницы!

[TolkienDRR]

они изначально есть же.

procedure TForm1.button1Click(Sender: TObject);
begin
 Edit3.Text:=IntToStr (StrToInt(Edit1.Text) mod StrToInt(Edit2.Text));
end;

[Saw~]

TolkienDRR

Мне надо в ввиде калькулятора!

Там должен быть один Edit!

[TolkienDRR]

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

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

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

[goH]

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

взаимна

[Lucky]

какое тёмное будущее ждёт сферу IT с такими программерами...

[Petrovichtim]

какое тёмное будущее ждёт сферу IT с такими программерами...

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

[L0K1]

какое тёмное будущее ждёт сферу IT с такими программерами...

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

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

[TolkienDRR]

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