{
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. проблем в принципе никаких не возникает....НО: Когда дело до строчки доходит
Points[k]=Point(X,Y);
начинаются проблемы - то массив неправильно объявлен, то переменные не так перечисляются, то несовместимость типов и т. д.
В C+ объявление массива Points происходит следущим образом:
TPoint Points[1000];
Как все это дело на Pascal перевести??? Если точнее, то как грамотно перевести это объявление массива???