Работа с элементами из StringGrid (Delphi)

[Аника Янковская]

Мне необходимо из StringGrid (заполненная таблица, состоит из 2 столбцов - x,y, строк - 10) взять элемент [2,3] и умножить на элемент [3,4]. Ответ(число) вывести в Edit1. Как правильно это записать? Помогите пожалуйста.

[newerow1989]

Edit1.Text:=IntToStr(StrToInt(StringGrid1.Cells[2,3])*StrToInt(StringGrid1.Cells[3,4]));

Выйдет с ошибкой, т.к. число столбцов меньше, чем [2,3] и [3,4]. Необходимо увеличить кол-во столбцов

[Аника Янковская]

А в var что надо записывать?

[Stilet]

В var в случае приведенного примера ничего.
Единственное что я бы писал так:

with StringGrid1 do Edit1.Text:=FloatToStr(StrToFloat(Cells[1,2])*StrToFloat(Cells[2,3]));

[Аника Янковская]

Что-то не работает. Данные в StringGrid у меня записываются так (это координаты щелчков мыши):

procedure TForm2.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with StringGrid1 do
begin
RowCount:= RowCount+1;
Cells[0,0]:='X';
Cells[1,0]:='Y';
Cells[0,RowCount-1]:=IntToStr(X);
Cells[1,RowCount-1]:=IntToStr(Y);
end;
end;

Когда нажимаю на кнопку, выскакивает ошибка. Что мне делать подскажите???

[newerow1989]

С использованием var можно переписать код в таком виде (для удобства чтения):

procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
   x:=StrToFloat(StringGrid1.Cells[2,3]);
   y:=StrToFloat(StringGrid1.Cells[3,4]);
   Edit1.Text:=FloatToStr(x*y);
end;

[type_Oleg]

Да, действительно, если столбов в StringGrid всего 2, и они нумеруются с 0-го, то откуда элементы [2,3] и [3,4] ?

PS По посту #5 - пишите, какая ошибка. Что пишет ?

[newerow1989]

Сообщение от Аника Янковская

Что-то не работает. Данные в StringGrid у меня записываются так (это координаты щелчков мыши):

procedure TForm2.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with StringGrid1 do
begin
RowCount:= RowCount+1;
Cells[0,0]:='X';
Cells[1,0]:='Y';
Cells[0,RowCount-1]:=IntToStr(X);
Cells[1,RowCount-1]:=IntToStr(Y);
end;
end;

Когда нажимаю на кнопку, выскакивает ошибка. Что мне делать подскажите???

Вообще не работает?

[Аника Янковская]

Ошибка выскакивает

[newerow1989]

В каком месте программного кода?

В StringGrid должны заполнены ВСЕ 2 столбца. Видимо, в одном из них и попалось пустое значение