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

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

Вот что выделено:

[newerow1989]

Вышли файлы: Unit1.pas, Unit2.pas, Unit1.dfm, Unit2.dfm. Посмотрю

[type_Oleg]

Ошибка мне кажется вот здесь. И об этом уже писали

x:=StrToFloat(StringGrid1.Cells[2,3]);
y:=StrToFloat(StringGrid1.Cells[3,4]);

Покажи на снимке экрана ячейки [2,3] и [3,4] , и что в них написано. Я так понял, они существуют, то есть столбцов уже не 2, а больше.
В них пусто.

Кстати, вот где они расположены

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

Я нашла свою ошибку, спасибо.

А если мне надо площадь многоугольника посчитать, вот так :

for i:=1 to n do
s := s + (x[i]*y[i+1] - y[i]*x[i+1]);
s:=abs(s/2);

Как записать чтобы с таблицы считывались i-тые значения??? Если можно, подскажите пжл.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:real;
begin
   s:=0;
   For i:=1 to StringGrid1.RowCount-2 do
      s:=s+StrToFloat(StringGrid1.Cells[0,i])*StrToFloat(StringGrid1.Cells[1,i+1])-
           StrToFloat(StringGrid1.Cells[1,i])*StrToFloat(StringGrid1.Cells[0,i+1]);
   s:=Abs(s/2);
end;

Так что ли?

[type_Oleg]

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

..
Как записать чтобы с таблицы считывались i-тые значения??? Если можно, подскажите пжл.

Как то так..

 x[i]:=StrToFloatDef(StringGrid1.Cells[0,i],0);  
 y[i]:=StrToFloatDef(StringGrid1.Cells[1,i],0);

.. Def значит ,что если в ячейке будет пусто или какая-то фигня вместо числа, то это поймется как 0 и не будет аварийного выхода.
Ну и массивы x,y надо конечно описать в var

[newerow1989]

Ну и массивы x,y надо конечно описать в var

Плюс размерность массива через SetLength изменить

[type_Oleg]

Сообщение от newerow1989

Плюс размерность массива через SetLength изменить

А, ну да.. Массив же будет динамическим, если число вершин заранее неизвестно.

Тогда, если эти x[и], y[и] нужны только для расчета s, то вообще обойтись без массива, как у тебя .

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

Поскольку многоугольник произвольный строится, то и кол-во координат каждый раз будет различным. Как в массиве это лучше прописать???
И еще вопрос: почему так писали StringGrid1.RowCount-2

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

Сообщение от newerow1989

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:real;
begin
   s:=0;
   For i:=1 to StringGrid1.RowCount-2 do
      s:=s+StrToFloat(StringGrid1.Cells[0,i])*StrToFloat(StringGrid1.Cells[1,i+1])-
           StrToFloat(StringGrid1.Cells[1,i])*StrToFloat(StringGrid1.Cells[0,i+1]);
   s:=Abs(s/2);
end;

Так что ли?

Почему то, я выделяю одну площадь, и получаются каждый раз разные значения, странно???