StringGrid

[Farmokolog]

Башка болит подскажите как доработать код чтобы сумму третьего столбца
записывал в Label.

procedure TMainForm.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  a, b, y,g: array [1..7] of Double;
  summj,summi: Double;
  j,i: Integer;
begin
 for j:= 1 to 7 do
 if not TryStrToFloat(StringGrid1.Cells [1,j],A[j]) then
   A[j]:=0;
   for j:=1 to 7 do
   if not TryStrToFloat(StringGrid1.Cells [2,j],B[j]) then
     B[j]:=0;
     for j:=1 to 7 do
     begin
      summj:=A[j]*B[j];
      Y[j]:=summj;
      StringGrid1.Cells[3, j]:=FloatToStr(Y[j]);
     end;
end;

я привел твой код согласно правилам оформления кода и для удобочитаемости. Ты же не против этого, да???

[VadikV]

А Вы все так же продолжаете не структурировать код (пишите без отступов) )

procedure TMainForm.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
var
  a, b, y,g: array [1..7] of Double;
  summj,summi: Double;
  j,i: Integer;
begin

for j:= 1 to 7 do
      if not TryStrToFloat(StringGrid1.Cells [1,j],A[j]) then A[j]:=0;
for j:=1 to 7 do 
       if not TryStrToFloat(StringGrid1.Cells [2,j],B[j]) then B[j]:=0;

summj := 0;
for j:=1 to 7 do
  summj:= summj + StrToFloat(StringGrid1.Cells[3, j]);

  Label.Caption:=FloatToStr(summj);

end;