|
Вопрос # 4 583/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Решил потренироваться в RAD Delphi 2010, но у меня возникли проблемы!
Пожалуйста подскажите как избежать тех ошибок, что я допустил?
[DCC Error] Unit1.pas(80): E2096 Method identifier expected
[DCC Error] Unit1.pas(23): E2065 Unsatisfied forward or external declaration: 'TForm1.Schet'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ExtCtrls;
-
- type
- TForm1 = class(TForm)
- Label3: TLabel;
- Button1: TButton;
- Button2: TButton;
- Label1: TLabel;
- Label2: TLabel;
- Edit1: TEdit;
- Edit2: TEdit;
- Label4: TLabel;
- Label5: TLabel;
- procedure Button1Click(Sender: TObject);
- procedure Edit2Change(Sender: TObject);
- procedure Edit1Change(Sender: TObject);
- procedure Schet;
- procedure Button2Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
- a,b:integer;
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Schet;
- end;
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- exit;
- end;
-
- procedure TForm1.Edit1Change(Sender: TObject);
- begin
- read(b);
- end;
-
- procedure TForm1.Edit2Change(Sender: TObject);
- begin
- read(a);
- end;
- procedure Schet;
- var c,d,e:integer;
- begin
- if a>b then
- begin
- c:=a;
- d:=b;
- end else
- begin
- c:=b;
- d:=a;
- end;
- e:=c mod d;
- if e<>0 then
- begin
- d:=e;
- e:=b mod e;
- end;
- while e<>0 do
- begin
- d:=e;
- e:=e mod e;
- end;
- Tform1.Label5.Caption:=d;
- end;
- end.
 |
Вопрос задал: LordZick (статус: Посетитель)
Вопрос отправлен: 16 сентября 2010, 19:03
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, LordZick!
процедура schet должна быть либо объявлена как метод класса, либо ее описание должно быть помещено до описания TForm1.Button1Click
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 16 сентября 2010, 19:23
Оценка за ответ: 4
|
Ответ #2. Отвечает эксперт: Тов. Женька
Здравствуйте, LordZick!
Перед Schet в разделе implementation впишите TForm1..
 |
Ответ отправил: Тов. Женька (статус: 3-ий класс)
Время отправки: 16 сентября 2010, 19:32
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 17 сентября 2010, 14:25; участников в обсуждении: 1.
|
Владимирович (статус: Посетитель), 17 сентября 2010, 14:25 [#1]:
В строке 80 вместо TForm1 просто Form1
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
