procedure TForm1.FormActivate(Sender: TObject);

[Vitalik85]

Здравствуйте. Я в программировании только пытаюсь начать разбираться. сейчас изучаю массивы. Не могу понять, в чем ошибка:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Tabl: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
tabl.Cells[0,0]:='Страна';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

end.

Пытаюсь дать шапке таблицы название.
Ругается на строку
procedure TForm1.FormActivate(Sender: TObject);

вот ошибки:

Build
[Error] Unit1.pas(27): Undeclared identifier: 'FormActivate'
[Error] Unit1.pas(27): ';' expected but '(' found
[Error] Unit1.pas(29): Undeclared identifier: 'tabl'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Stilet]

Верно ругается. В Инспекторе объектов на вкладке событий свойство OnActivate не назначено на процедуру FormActivate

[Delphi_ProGer]

TForm1 = class(TForm)
    Tabl: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);

[BDA]

А почему шапка не заполняется?:-)

Верно ругается. В Инспекторе объектов на вкладке событий свойство OnActivate не назначено на процедуру FormActivate

Откройте в инспекторе объектов форму. Затем вкладку events (события) и, наконец, назначьте созданную процедуру нужному свойству.

[Stilet]

Ты эту процедуру просто так в код сунул, или в Инспекторе Объектов привязал?

[Vitalik85]

Теперь понял))) Всем большое спасибо. Простите за глупые вопросы.

[Vitalik85]

А почему шапка не заполняется?:-)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Tabl: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
tabl.Cells[0,0]:='Страна';
tabl.Cells[1,0]:='Золотых';
tabl.Cells[2,0]:='Серебрянных';
tabl.Cells[3,0]:='Бронзовых';
tabl.Cells[4,0]:='Всего';
tabl.Cells[5,0]:='Баллов';
tabl.Cells[0,1]:='Австралия';
tabl.Cells[0,2]:='Белоруссия';
tabl.Cells[0,3]:='Великобритания';
tabl.Cells[0,4]:='Германия';
tabl.Cells[0,5]:='Италия';
tabl.Cells[0,6]:='Китай';
tabl.Cells[0,7]:='Корея';
tabl.Cells[0,8]:='Куба';
tabl.Cells[0,9]:='Нидерланды';
tabl.Cells[0,10]:='Россия';
tabl.Cells[0,11]:='США';
tabl.Cells[0,12]:='Франция';
tabl.Cells[0,13]:='Япония';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
c,r:integer;
s:integer;
p:integer;
m:integer;
buf:array[0..5] of string;
i:integer;
begin
for r:=1 to tabl.RowCount do
begin
s:=0;
for c:=1 to 3 do
if tabl.Cells[c,r]<>''
then s:=s+StrToInt(tabl.Cells[c,r])
else tabl.Cells[c,r]:='0';
p:=7*StrToInt(tabl.cells[1,r])+6*StrToInt(tabl.cells[2,r])+5*StrToInt(tabl.cells[3,r]);
tabl.cells[4,r]:=IntToStr(s);
tabl.cells[5,r]:=IntToStr(p);
end;

end;

end.

[ych_del]

Я так понимаю, ошибок теперь нет, но шапка не заполняется, верно?
Жмакни форму (именно ФОРМУ, а не какой-либо контрол на ней), а затем в инспекторе объектов открой вкладку Events и дважды жмакни в OnActivate.

Ты, как я понимаю, руками прописал в интерфейсной части данную процедуру, но не назначил её форме.

Удачи.