Текущий архив: 2002.04.18;
Скачать: CL | DM;

Вниз

Как передать в процдуру динамический массив и там его изменить?   Найти похожие ветки 

← →
BWG ©   (2002-04-07 14:22) [0]

Я-то решил эту проблему так:

TrglLPS = record
Angle : single;
Angle2 : single;
DeltaOuter : single;
DeltaInner : single;
DrawIt : boolean;
end;
PrglLPS = array of TrglLPS;
<...>
lps,lps2,lps3 : PrglLPS;
<...>
procedure rglEnergyRing(Radius, LightingInnerRadius, LightingOuterRadius,
UnitDelta : single; MaxPointNumber, PointPerFrame : integer;
LightingPointStructure : PrglLPS);
<...>
rglEnergyRing(RingRadius,RingLightingInnerRadius,RingLightingOuterRadius,
0.001,MaxPoint,Round(MaxPoint/1000),lps);

Но чую: извратился. А как это делаетс по-человечески?
Заранее благодарен.

---

← →
Anatoly Podgoretsky ©   (2002-04-07 14:25) [1]

procedure rglEnergyRing(const ar:PrglLPS)
если это у тебя тип, если нет сделай тип

---

← →
BWG ©   (2002-04-07 14:27) [2]

Спасибо.

---

← →
Anatoly Podgoretsky ©   (2002-04-07 14:27) [3]

Можно попробовать и
procedure rglEnergyRing(const ar:array of TrglLPS) но я так не делаю

---

← →
KaPaT ©   (2002-04-07 16:56) [4]

Согласен с Anatoly Podgoretsky. Так еще в седьмом Паскале можно было делать

---

← →
Anatoly Podgoretsky ©   (2002-04-07 17:00) [5]

В 7 не было динамических массиво, были открытые, но синтаксис похож

---

Страницы: 1 вся ветка

Текущий архив: 2002.04.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c