помогите, где ошибка???

[Игорек]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a:array [1..10]of integer;
b:array [1..10]of integer;
i:byte;
j:integer;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='введите массив';
Label1.Font.Color:=clRed;
Label1.Font.Size:=12;
Label1.Font.Style:=[fsBold];
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
p:integer;
begin
for i:=1 to 10 do
begin
if length(StringGrid1.Cells[0,i-1]) <>0 then a:=StrToInt(StringGrid1.Cells[i-1,0])
else a:=0;
end;
for j:=1 to 10 do p:=p*a[j];
Label2.Caption:='произведение элементов: '+IntToStr(p);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
p:integer;
begin
for i:=1 to 10 do
if length(StringGrid1.Cells[i-1,0]) <>0 then a:=StrToInt(StringGrid1.Cells[i-1,0])
else a:=0;

for i:=1 to 10 do
begin
p:=p+a;
b:=p;
end;
//j:=b;

Label3.Caption:='новый массив: '+FloatToStr(b);
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
for i:=1 to 10 do StringGrid1.Cells[i-1,0]:=' ';
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close
end;



end.

[BBB]

Re: помогите, где ошибка???

В модуле Unit1?

[Oleg_Rus]

собственно, какая именно ошибка? Что именно пишет?

[BBB]

собственно, какая именно ошибка? Что именно пишет?

Вот и я о том же Вспомнился старый анекдот. Диалог: Сколько? -- Пять -- А чего пять? -- Я чего сколько?

[FIREYV]

if length(StringGrid1.Cells[0,i-1]) <>0 then a:=StrToInt(StringGrid1.Cells[i-1,0])

StringGrid1.Cells[0,i-1] (столбец 0, строка i-1)
StringGrid1.Cells[i-1,0] (столбец i-1, строка 0)


еще, при преобразовании DECIMALSEPARATOR может быть ',',
в FORMCREATE вставить
DECIMALSEPARATOR:='.';
иначе будет ошибка