Tomsk Sysadmins Forum

Windows => Программирование => Topic started by: Kider_Dim on April 10, 2008, 17:25:02

Title: I need Help!!!!!!
Post by: Kider_Dim on April 10, 2008, 17:25:02

Quote

{
if (Sel==true)
{
if (k>900) Close();
Points[k]=Point(X,Y);
k=k+1;
SelCoorX[k]=X;
SelCoorY[k]=Y;
if (MaxSelX<X) MaxSelX=X;
if (MaxSelY<Y) MaxSelY=Y;
if (MinSelX>X) MinSelX=X;
if (MinSelY>Y) MinSelY=Y;
Canvas->LineTo(X+Image1->Left,Y+Image1->Top);
}
}

Такой вот код есть......Надо перевести его на Pascal. проблем в принципе никаких не возникает....НО: Когда дело до строчки доходит

Quote

Points[k]=Point(X,Y);

начинаются проблемы - то массив неправильно объявлен, то переменные не так перечисляются, то несовместимость типов и т. д.

В C+ объявление массива Points происходит следущим образом:

Quote

TPoint Points[1000];

Как все это дело на Pascal перевести??? Если точнее, то как грамотно перевести это объявление массива???

Title: I need Help!!!!!!
Post by: Diver on April 11, 2008, 09:58:20

Ну вы посмотрите как выглядит TPoint и всё наверное вам станет ясно.

Title: I need Help!!!!!!
Post by: Ценитель on April 11, 2008, 20:28:53

Points[k]=Point(X,Y);

это присваивание или сравнение?
Если присваивание то Points[k]:=Point(X,Y);

Title: I need Help!!!!!!
Post by: Kider_Dim on April 12, 2008, 17:21:38

Quote from: Ценитель

Points[k]=Point(X,Y);

это присваивание или сравнение?
Если присваивание то Points[k]:=Point(X,Y);

Присваивание)
Проблема просто была в том, что не знал как объявить этот массив)