Текущий архив: 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.008 c
