|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
22.09.2014, 23:22 | #1 |
Новичок
Джуниор
Регистрация: 22.09.2014
Сообщений: 2
|
Как справиться с ошибками?
Решил создать одну из первых программ на Delphi, и, в который раз, он ругается...
Код: unit vg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var a,c,b:Integer; Form1: TForm1; begin procedure TForm1.Edit1Change(Sender: TObject); begin a:=StrToInt(Edit1.Text); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=IntToStr(c); end; c:=b-a; implementation {$R *.dfm} procedure TForm1.Edit2Change(Sender: TObject); begin b:=StrToInt(Edit2.Text); end; end. Ошибки: Build [Error] vg.pas(27): Statements not allowed in interface part [Error] vg.pas(28): Statement expected but 'PROCEDURE' found [Error] vg.pas(29): Identifier redeclared: 'TForm1.Edit1Change' [Error] vg.pas(30): Undeclared identifier: 'Edit1' [Error] vg.pas(31): Statement expected, but expression of type 'Text' found [Error] vg.pas(34): Identifier redeclared: 'TForm1.Button1Click' [Error] vg.pas(35): Undeclared identifier: 'Label1' [Error] vg.pas(37): Declaration expected but identifier 'c' found [Error] vg.pas(15): Unsatisfied forward or external declaration: 'TForm1.Button1Click' [Error] vg.pas(16): Unsatisfied forward or external declaration: 'TForm1.Edit1Change' [Fatal Error] Project2.dpr(5): Could not compile used unit 'vg.pas' Что тут не так? Кто-нибудь, исправьте пожалуйста... |
22.09.2014, 23:57 | #2 |
Пользователь
Регистрация: 18.09.2014
Сообщений: 32
|
1. нужно удалить одну begin
2. c:=b-a; Наверное должно быть в обработчике события кнопки : вот так procedure TForm1.Button1Click(Sender: TObject); begin c:=b-a; Label1.Caption:=IntToStr(c); end; 3. Обьявления событий должно быть ниже implementation {$R *.dfm} Вообщем должно быть так : unit vg; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Edit2Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var a,c,b:Integer; Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Edit1Change(Sender: TObject); begin a:=StrToInt(Edit1.Text); end; procedure TForm1.Button1Click(Sender: TObject); begin c:=b-a; Label1.Caption:=IntToStr(c); end; procedure TForm1.Edit2Change(Sender: TObject); begin b:=StrToInt(Edit2.Text); end; end. |
23.09.2014, 00:04 | #3 |
Пользователь
Регистрация: 18.09.2014
Сообщений: 32
|
А чтобы правельно считало...Примерно такой код :
procedure TForm1.Button1Click(Sender: TObject); begin a := strtoint(edit1.text); b := strtoint(edit2.Text); c := b - a; Label1.Caption:=IntToStr(c); end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как справиться с погрешностью? | dar3dev1l26 | Помощь студентам | 4 | 11.05.2013 10:49 |
Visual C++.Как справиться с задачей №4. | lastditch | Помощь студентам | 2 | 17.04.2013 21:43 |
как справиться ? | Алексей325 | Помощь студентам | 14 | 14.01.2011 15:38 |
Программирование алгоритмов с использованием подпрограмм - функций, не могу справиться с ошибками | Positive-z | Общие вопросы C/C++ | 4 | 13.06.2010 17:25 |
Как убрать окна с ошибками? | Вадим Буренков | Общие вопросы Delphi | 1 | 14.07.2009 17:00 |