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

[newerow1989]

StringGrid1.RowCount-2

Пояснение:
а) нумерация с нуля;
б) StringGrid1.Cells[0,StringGrid1.RowCount] не существует
в) StringGrid1.Cells[0,StringGrid1.RowCount-1] существует
г) поэтому переменная i в пределах [0..StringGrid1.RowCount-1], но!
д) в формуле StringGrid1.Cells[1,i+1] i+1, следовательно, StringGrid1.RowCount уменьшить еще на 1 => получается StringGrid1.RowCount-2

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

Возможная причина заключается в том, что координаты точек разные! Даже если в первый раз, к примеру, получилась координата (10, 54), а другой - (11, 54). Поэтому разница в 1 приводит разные результаты

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

А это с массивом!

[type_Oleg]

Аника Янковская, введите в StringGrid1 вручную координаты какого нибудь прямоугольного треугольника и проверьте.
Треугольник - это же тоже многоугольник.

[min@y™]

Киса, я в соседнем вопросе тебя умолял не использовать визуальные компоненты для хранения данных, даже пример с исходником, красивый и живой, подарил, а ты?!!...
ну посмотри какой геморрой развела, и чем дальше, тем хуже! и этот геморрой – ещё одно доказательство, что я, таки, прав.

Ну зачем, зачем (!!!) делать что-то заведомо неправильно, долго и муторно, когда можно сделать быстро, красиво и хорошо?

....я не понимаю....

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

newerow1989, спасибо большое Вам за помощь.

[newerow1989]

Пожалуйста!