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

Вниз

Pointer&Dynamic Array   Найти похожие ветки 

← →
nimble ©   (2002-09-05 05:51) [0]


PMas = ^TMas;
TMas = record
i: integer;
st: string[10];
f: float;
end;
...
procedure proc(pt: PMas);
begin

end;
...
var
mas: array of TMas;
pBase: PMas;

Как в процедуре proc работать с этим массивом?
...
pBase:=@mas;
proc(pBase);


---

← →
SPeller ©   (2002-09-05 06:04) [1]

PMas^[index];

---

← →
nimble ©   (2002-09-05 06:40) [2]

Чего-то не работает:(

---

← →
ЮЮ ©   (2002-09-05 06:52) [3]

type TArrOfMass=array of TMas;

procedure proc(ArrOfMass:TArrOfMass);
begin
...ArrOfMass[i]...
end;

Mas:TArrOfMass;

Proc(Mas);

---

← →
nimble ©   (2002-09-05 07:19) [4]

Вроде работает. СПАСИБО!!!

---

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

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

Наверх

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