[kotopezzz]

Всем доброго утра! Ребят есть текст пргорамки,
помогите разобраться как сделать так чтобы 1 -ые строки и 1- ые столбцы были названиями а нижеперечисленнные операции с ними не выполнялись. Заранее благодарю!

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
    a,b:array [0..2] of integer;
    j,summ: integer;
begin

for j:=0 to 2 do
begin
a[j]:=StrToint(StringGrid1.Cells [0,j]);
b[j]:=StrToint(StringGrid1.Cells [1,j]);
summ:=a[j]* b[j];
StringGrid1.Cells[2, j]:=intToStr(summ);
end;
 end;
procedure TForm1.FormActivate(Sender: TObject);
begin
StringGrid1.Cells [0,0]:='1';
StringGrid1.Cells [1,0]:='5';
StringGrid1.Cells [0,1]:='3';
StringGrid1.Cells [1,1]:='8';
StringGrid1.Cells [0,2]:='9';
StringGrid1.Cells [1,2]:='4';
end;

Админ: Пользуемся тегами для оформления кода!

[Belanserg]

Может это подойдет:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
 var
    a,b:array [0..2] of integer;
    j,summ: integer;
begin

for j:=1 to 2 do
begin
a[j]:=StrToint(StringGrid1.Cells [1,j]);
b[j]:=StrToint(StringGrid1.Cells [1,j]);
summ:=a[j]* b[j];
StringGrid1.Cells[2, j]:=intToStr(summ);
end;