Как упростить последовательный ввод цифр?

@Ra21 · Регистрация: 15.05.2013

Author24 — интернет-сервис помощи студентам

Ребят, спасайте!
можно ли как то 2 if поднять в 1?? упростить выражение, чтобы условия сохранились?!
Спасибо.

Кликните здесь для просмотра всего текста

Delphi

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
  If Kn.Caption<>'0' then
    if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
   If Kn.Caption='0' then
    if Edit1.Text<>'0'then
        if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
end;

@i368 · 31.05.2013, 23:37

В смысле поднять в одно?!
Может if условие_первое and условие_второе then //Будет выполнятся проверка первого условие и второго,если они оба правильны.
Так-же можно место and,использовать or.
Если же используем or,тогда если первое значение или второе правильно выполняем действие.

Delphi

if (условие_первое) and (условие_второе) then begin
 
... Если оба правильны 
 
end else begin
 
... Если оба не правильны 
 
end
 
if (условие_первое) or (условие_второе) then begin
 
... Если одно из них правильно
 
end else begin
 
...Если одно из них не правильно
 
end

@Evgen11 · 31.05.2013, 23:37

if (Kn.Caption <> '0') and (r=0 ) по-моему только так

@Ra21 · 31.05.2013, 23:55 **[ТС]**

Сообщение от Evgen11

if (Kn.Caption <> '0') and (r=0 ) по-моему только так

Спасибо!

Добавлено через 5 минут
i368 и вам спасибо.

@Ev1l · 01.06.2013, 01:12

Delphi

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
  If Kn.Caption<>'0' then
    if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
   If Kn.Caption='0' then
    if Edit1.Text<>'0'then
        if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
end;

как я тут смотрю у нас условие

Delphi

1	else Edit1.Text:=Edit1.Text+Kn.Caption;

выполняется только если не (Kn.Caption='0') and(Edit1.Text<>'0')and(r=0)

Delphi

1 2	Edit1.Text:=Kn.Caption; r:=1;

выполнется если выеуказанное верно,при этом if Edit1.Text<>'0'then не влияет абсолютно никак на выполнение программы, потому как при первом условии эта проверка опущена и при любом содержимом едита результат не будет зависить от содержимого эдита, а при второй проверке(после того как выполнена первая) такого варианта просто не может наступить, следовательно можно писать так:

Delphi

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
If (Kn.Caption<>'0')and(r=0) then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
Edit1.Text:=Edit1.Text+Kn.Caption;
end;

думаю неигде не ошибся

Добавлено через 20 минут
бурду написал в прошлом посте.
1. первая проверка если Kn.Caption='0' ничего не будет, переход на вторую проверку, при второй проверке тоже ничего не изменится.
2. если Kn.Caption<>'0' и r=0 тогда r=1 и Edit1.text<>'0', значит вторая проверка не изменит результат
3. если Kn.Caption<>'0' и r=1 тогда Edit1.text<>'0' и вторая проверка не изменит результат
Вывод: вторая проверка не нужна, первая не изенятся:

Delphi

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
  If Kn.Caption<>'0' then
    if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
end;

Добавлено через 13 минут

Delphi

procedure TForm1.DigitClick(Sender: TObject);
var
  kn:TButton;
begin
  Kn:=Sender as TButton;
  If Kn.Caption<>'0' then
    if r=0 then
      begin
        Edit1.Text:=Kn.Caption;
        r:=1;
      end
   else Edit1.Text:=Edit1.Text+Kn.Caption;
   If Kn.Caption<>'0' then Edit1.Text:=Edit1.Text+Kn.Caption;
end;

p.s. во намудрил, как все стереть и начать жизнь заного

вторая проверка все таки нужна, и только ее и можно сократить, из-за порядка скобок if then else все что я писал до этого можно считать бредом сумасшедщего в пятницу ночью

@Evgen11 2 / 2 / 0 Регистрация: 29.11.2011 Сообщений: 25
	31.05.2013, 23:37	3
	if (Kn.Caption <> '0') and (r=0 ) по-моему только так 1

@Ra21 0 / 0 / 1 Регистрация: 15.05.2013 Сообщений: 64
	31.05.2013, 23:55 [ТС]	4
	Сообщение от Evgen11 if (Kn.Caption <> '0') and (r=0 ) по-моему только так Спасибо! Добавлено через 5 минут i368 и вам спасибо. 0

	01.06.2013, 01:12