[King708]

столкнулся с проблемой, при нажатии button1 а потом button11 в Edit1 должно по идее выводится 128, но этого почему то не происходит.

вот меня интересует почему

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

var   Form1: TForm1;   A1, A2, A3, A4, A5, A6, A7, A8, A9, A0, A10, A11 : Integer;           implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=('123') end;   procedure TForm1.Button2Click(Sender: TObject); begin A2:=2; Edit1.Text:=IntToStr(A2); end;   procedure TForm1.Button3Click(Sender: TObject); begin A3:=3; Edit1.Text:=IntToStr(A3); end;   procedure TForm1.Button4Click(Sender: TObject); begin A4:=4; Edit1.Text:=IntToStr(A4); end;   procedure TForm1.Button5Click(Sender: TObject); begin A5:=5; Edit1.Text:=IntToStr(A5); end;   procedure TForm1.Button6Click(Sender: TObject); begin A6:=6; Edit1.Text:=IntToStr(A6); end;   procedure TForm1.Button7Click(Sender: TObject); begin A7:=7; Edit1.Text:=IntToStr(A7); end;   procedure TForm1.Button8Click(Sender: TObject); begin A8:=8; Edit1.Text:=IntToStr(A8); end;   procedure TForm1.Button9Click(Sender: TObject); begin A9:=9; Edit1.Text:=IntToStr(A9); end;   procedure TForm1.Button11Click(Sender: TObject);   begin   if Edit1.Text=('123') then A1:=123     else ShowMessage('Error1');   if Edit1.Text=('123') then A0:=A1+A5     else showmessage('Error'); Edit1.Text:=IntToStr(A0);   end;   procedure TForm1.Button10Click(Sender: TObject); begin   end;   end.

[Aristarh Dark]

Вот задача тебе:

Буратине дали 3 яблока. 2 яблока он съел. Сколько яблок осталось у Буратины?

Решишь ее - поймешь почему не работает твоя программа.

[friz]

Все очень просто! ошибка в скобках! должно быть так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:='123'; end;     procedure TForm1.Button11Click(Sender: TObject);   begin   if Edit1.Text='123' then A1:=123     else ShowMessage('Error1');   if Edit1.Text='123' then A0:=A1+A5  <font color="Red"> - чему равно А5?</font>     else showmessage('Error'); Edit1.Text:=IntToStr(A0);   end;

[izunad]

я вообще то 1 час в делфи вообще в программировании но разве переменные не следует представлять?

[iliasmalorum02]

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

я вообще то 1 час в делфи вообще в программировании но разве переменные не следует представлять?

А у него А5 объявлен там же, где и Form.