Ошибка38

[Jekaa2]

Люди, помогите пожалуйста в чем ошибка?



Unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
TForm2 = class(TForm)
pgc1: TPageControl;
ts1: TTabSheet;
ts2: TTabSheet;
ts3: TTabSheet;
ts4: TTabSheet;
ts5: TTabSheet;
ts6: TTabSheet;
ts7: TTabSheet;
ts8: TTabSheet;
rg1: TRadioGroup;
lbl2: TLabel;
lbl1: TLabel;
rg2: TRadioGroup;
lbl3: TLabel;
rg3: TRadioGroup;
lbl4: TLabel;
rg4: TRadioGroup;
lbl5: TLabel;
rg5: TRadioGroup;
lbl6: TLabel;
rg6: TRadioGroup;
lbl7: TLabel;
rg7: TRadioGroup;
lbl8: TLabel;
rg8: TRadioGroup;
btn1: TButton;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
ball:Integer;
implementation

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
begin
Ball:=0;
if Rg1.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg1.ItemIndex =1
then Ball:=Ball+1;

if Rg2.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg2.ItemIndex =1
then Ball:=Ball+1;


if Rg3.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg3.ItemIndex =1
then Ball:=Ball+1;


if Rg4.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg4.ItemIndex =1
then Ball:=Ball+1;


if Rg5.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg5.ItemIndex =1
then Ball:=Ball+1;


if Rg6.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg6.ItemIndex =1
then Ball:=Ball+1;


if Rg7.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg7.ItemIndex =1
then Ball:=Ball+1;


if Rg8.ItemIndex =-1
then ShowMessage('Нужно выбрать ответ') else
if Rg8.ItemIndex =1
then Ball:=Ball+1;

showmessage('Кол-во баллов' + IntToStr(ball));

end;

end.



Ошибки:
[Error] Unit2.pas(38): Unsatisfied forward or external declaration: 'TForm2.FormCreate'
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit2.pas'

[p51x]

Во-первых, unit
Во-вторых, где реализация TForm2.FormCreate?

[Jekaa2]

Блин, плохо скопировал Unit...
Я плохо, понимаю Delphi, можеш указать, где именно, что надо, у меня все работало, но потом я пытался вывести ball'ы в label
lbl9.Caption:=IntToStr(ball);
и после этого у меня стало выдовать эту ошибку!

программа останавливаеца на:
procedure FormCreate(Sender: TObject);

[Grag]

А может сначала написать процедуру создания формы
procedure FormCreate(Sender: TObject);

а уж потом писать процедуру обработчик кнопки
procedure btn1Click(Sender: TObject);

[Jekaa2]

к сожалению непомогает(

[Jekaa2]

Хелп, очень срочно надо!

[Sibedir]

Тебе же уже ответили. Ты объявил процедуру

TForm2 = class(TForm)
...
procedure FormCreate(Sender: TObject);

но не написал ее реализацию.

у меня все работало

Видимо удалил ее по ошибке.

Сотри строку объявления

class(TForm)
...
procedure FormCreate(Sender: TObject);

Далее при компиляции ответь "Yes"
или
Добавь перед end.

...
procedure TForm2.FormCreate(Sender: TObject);
begin

end;

end.

[Jekaa2]

спасибо большое!