Работа с канвой в Делфи 7 (нарисовать многоугольник по кликам мышкой)

[Аватар]

Для более мелких объектов масштабирование нужно. Тогда все по другому нужно делать

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

Уважаемый, indexx. Не могли бы вы подсказать. Вы говорили про коэффициент перевода в нормальные единицы. Я перевела у меня получилось, что 1 кв.пиксель=35,45 кв.м. Куда мне записать этот коэффициент, чтобы правильно считалась площадь????

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

Здравствуйте! Подскажите пожалуйста. Я сделала так, чтобы когда я выделяю многоугольник щелчками, все координаты записывались в ComboBox, и теперь с помощью формулы мне надо найти площадь. Я вычислила площадь прямоугольника, получилось так:

procedure TForm2.Button2Click(Sender: TObject);
var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
begin
x1:=strtofloat(ComboBox1.Items[0]);
y1:=strtofloat(ComboBox2.Items[0]);
x2:=strtofloat(ComboBox1.Items[1]);
y2:=strtofloat(ComboBox2.Items[1]);
x3:=strtofloat(ComboBox1.Items[2]);
y3:=strtofloat(ComboBox2.Items[2]);
x4:=strtofloat(ComboBox1.Items[3]);
y4:=strtofloat(ComboBox2.Items[3]);
s:=0.5*(x1*y2-y1*x2+x2*y3-y2*x3+x3*y4-y3*x4+x4*y1-y4*x1);
Edit1.text:=floattostr(s);
end;
end.

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

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

Для расчета площади я беру данные с координатами с StringGrid1. Координаты по X - 1 столбец, по Y - 2.

procedure TForm2.Button2Click(Sender: TObject);
type m10=array[1..100] of real;
var x,y:m10;
i,n:integer;
s:real;
begin
n:=StringGrid1.RowCount;
for i:=1 to n do begin
x[i]:=strtofloat(StringGrid1.Cells[0,i+1]);
y[i]:=strtofloat(StringGrid1.Cells[1,i+1]);
end;
x[n+1]:=x[1];    
y[n+1]:=y[1];
s:=0;
for i:=1 to n do
s := s + (x[i]*y[i+1] - y[i]*x[i+1]);
s:=abs(s/2);
Edit1.text:=floattostr(s);
end;

Программа не работает, подскажите, что нужно исправить.

[min@y™]

подскажите, что нужно исправить.

Первое, что надо исправить - выкинуть stringgrid из программы и больше никогда не хранить данные в визуальных компонентах.
Кстати, могу дать неплохой пример.

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

А мне нужно именно из него брать данные и считать площадь. Задание такое. Это вообще возможно сделать?

[min@y™]

Задание такое.

покажи оригинал!

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

Весь текст программы?

[min@y™]

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

Весь текст программы?

нет!
оригинал ЗАДАНИЯ!

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

Задание было в устной форме. Сказали, чтобы все координаты записывались, а потом их использовали для вычисления площади. Сказали, что нужно подумать, как записать, т.к. при каждом новом выделении будут получаться разные многоугольники (разное количество вершин).