Author Topic: I need Help!!!!!!  (Read 3326 times)

0 Members and 1 Guest are viewing this topic.

Offline Kider_Dim

  • Newbie
  • *
  • Posts: 16
  • Karma: +0/-0
  • Простой такой мед. кибернетик
I need Help!!!!!!
« 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 перевести??? Если точнее, то как грамотно перевести это объявление массива???

Offline Diver

  • Hero Member
  • *****
  • Posts: 790
  • Karma: +2/-0
I need Help!!!!!!
« Reply #1 on: April 11, 2008, 09:58:20 »
Ну вы посмотрите как выглядит TPoint и всё наверное вам станет ясно.
MCP

Offline Ценитель

  • Newbie
  • *
  • Posts: 9
  • Karma: +0/-0
    • http://
I need Help!!!!!!
« Reply #2 on: April 11, 2008, 20:28:53 »
Points[k]=Point(X,Y);

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

Offline Kider_Dim

  • Newbie
  • *
  • Posts: 16
  • Karma: +0/-0
  • Простой такой мед. кибернетик
I need Help!!!!!!
« Reply #3 on: April 12, 2008, 17:21:38 »
Quote from: Ценитель
Points[k]=Point(X,Y);

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

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