Действия в StringGrid

[Алекссс]

Скажите как правильно записать процедуру что бы выходил ответ в решении у меня почему то выдает ошибку.


procedure TForm2.Button3Click(Sender: TObject);
var
a: integer;
b: integer;
c: integer;
k: real;
begin
a:=strtoint(form1.StringGrid1.Cells[1,form1.StringGrid1.RowCount-2]);
b:=strtoint(form1.StringGrid1.Cells[2,form1.StringGrid1.RowCount-2]);
c:=strtoint(form1.StringGrid1.Cells[3,form1.StringGrid1.RowCount-2]);
k:=c/(a+b);
form1.StringGrid1.Cells[4,floattostr(k)];
end;

[ych_del]

Телепаты в отпуску. Какую ошибку выдает?

[Алекссс]

form1.StringGrid1.Cells[4,floattostr(k)]; - записано не правильно - string или integer

[maLoy*508]

что то мне подсказывает что вместо

form1.StringGrid1.Cells[4,floattostr(k)];

должно быть

form1.StringGrid1.Cells[4,form1.StringGrid1.RowCount-2] := floattostr(k);

[ych_del]

Ну так верно - тебе нужно указывать номер строки, т.е. - Integer, а ты подсовываешь string.

Можно, например, вот так:

form1.StringGrid1.Cells[4, Round(k)]

Или вот так:

form1.StringGrid1.Cells[4, C div (A+B)]

[Алекссс]

спасибо разобрался)