| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как передать в процдуру динамический массив и там его изменить? [D6, Win2k]
BWG © (2002-04-07 14:22:00)Я-то решил эту проблему так:
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 17:00:00) [1]В 7 не было динамических массиво, были открытые, но синтаксис похож
KaPaT (2002-04-07 16:56:00) [2]Согласен с Anatoly Podgoretsky. Так еще в седьмом Паскале можно было делать
BWG (2002-04-07 14:27:00) [3]Спасибо.
Anatoly Podgoretsky (2002-04-07 14:27:00) [4]Можно попробовать и
procedure rglEnergyRing(const ar:array of TrglLPS) но я так не делаю
Anatoly Podgoretsky (2002-04-07 14:25:00) [5]procedure rglEnergyRing(const ar:PrglLPS)
если это у тебя тип, если нет сделай тип
| |
