Триангуляция Делоне

[aston901]

Добрый день
Имеется готовая программа триангуляции
Нужно сделать чтобы имеющиеся точки можно было сохранять и потом открывать и по ним строить триангуляцию

Вот процедура на клик мыши (Добавление точки и ее рисование)

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var Point2D:^TPoint2D;
X1,Y1:Real;
begin
if(x>5)and(x<Form1.Width-20)and(y>5)and(y<Form1.Height-85) and (ListTriang.ReadTri= Nil) then
begin
X1:=X;
Y1:=Y;
Drawshap(point(x,y),pmCopy,clPoint) ;
New(Point2D);
Point2D.Detpoint(X1,Y1);
ListPoint.Insert(Point2D);
NbPoint:=NumbPoint+1;
form1.StatusBar1.Panels[3].Text:=inttostr(NumbPoint);
end;
end;

TPoint2D = object
private
Abs : Real;
Ord : Real;
public
function Readpoint:Tpoint2D;
function ReadAbs:Real;
function ReadOrd:Real;
procedure Detpoint(Ax,Ay:Real);
procedure DetAbs(Ax:Real);
procedure DetOrd(AY:Real);
end;

TListpoint=object
private
TriList : ^TNodePoint;
public
constructor CListPoint;
destructor DListPoint;
procedure ClrList;
procedure Insert(PPoint:P_Point);
function ReadTri:P_NodePoint;
end;

procedure TListPoint.Insert(PPoint:P_Point);
var PNode,PEncours : P_NodePoint;
begin
New(PNode);
PNode.CNodePoint(PPoint);
PEncours := TriList;
if (TriList = NIL)then
begin
TriList := PNode;
end
else
begin
while PEncours.ReadNext<>NIL do PEncours:=PEncours.ReadNext;
PEncours.DetNext(PNode);
end;
end;

procedure Tpoint2D.Detpoint(Ax,Ay:Real);
begin
Abs := Ax;
Ord := Ay;
end;

[Z1000000]

Скинь проект целиком.

[aston901]

1800строк кода сюда не влазят)
Triangulation.doc

[Z1000000]

Компилировать тоже в Worde?
Объясняю подробнее: Положи сюда архив с проектом Делфи, чтобы можно было запустить его в Дельфи и откомпилировать.

[aston901]

Извиняюсь, сразу не понял
Triangulation.rar

[Azazel90]

aston901, Большое человеческое спасибо. Постараюсь переписать на C# классами - выложу сюда же.

[katikov]

Здравствуйте, имеется программа триангуляции написанная на С++,она выполняет триангуляцию полигона,точки задаются последовательно нажатием левой клавишей мыши в окне работающей программы.
Подскажите пожалуйста, как переписать программу, что бы точки считывались из txt файла, где предварительно, будут записаны координаты (х и у) точек.
Это нужно, что бы на выходе получить файл txt со списком треугольников, а точнее координаты трех точек образующий каждый треугольник.Я хочу в последствии посчитать таким образом площадь полигона при помощи суммы площадей треугольников.
Программу выложил через файлообменник ifolder.ru ссылка для скачивания файла
http://ifolder.ru/29852246

[sofiikas]

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

aston901, Большое человеческое спасибо. Постараюсь переписать на C# классами - выложу сюда же.

у меня курсовая, если вам не трудно,как студент студенту, выложить все-таки прогу на шарпах))