|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Ошибка (числовые значения)
столкнулся с проблемой, при нажатии button1 а потом button11 в Edit1 должно по идее выводится 128, но этого почему то не происходит.
вот меня интересует почему Код:
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. |
#2
|
||||
|
||||
Вот задача тебе:
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
||||
|
||||
Все очень просто! ошибка в скобках! должно быть так:
Код:
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 - чему равно А5? else showmessage('Error'); Edit1.Text:=IntToStr(A0); end; |
#4
|
|||
|
|||
я вообще то 1 час в делфи вообще в программировании но разве переменные не следует представлять?
|
#5
|
||||
|
||||
Цитата:
Делаю программы за очки репутации! |