Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Pointer: Как работает?

SlavaNew © (2001-12-26 07:28:00)
Вопрос в следующем...
Сoздаю список TList
Затем сщздаю несколько однотипных объектов и закидываю их указатели в этот самый список TList.
И затем, перебирая этот список, хочу изменить свойство объектов закинутых в него объектов или вытащить имя их родителя или еще что-нибудь такое, но не получается нифига.
Как сделать с объектом какое-нибудь действие?

SlavaNew (2001-12-26 11:11:00) [1]
Всем ОГРОМНОЕ СПАСИБО...
Вроде понял, пойду разбираться...
Если что... вернусь...;о))

MBo (2001-12-26 09:08:00) [2]
ну да, пусть посмотрит разные методы доступа

gek (2001-12-26 09:06:00) [3]
>> MBo
Да я согласен можно и без извлечения, просто
пытался дать понять чел как это работает

MBo (2001-12-26 08:10:00) [4]
перед
if ListAb.Count <> 0 then
внесение записей в список
ListAB.add(RecAB);
...
а изменение полей можно и так, без извлечения
RecAb(Listab.Items[k])^.Summ:=...

gek (2001-12-26 07:36:00) [5]
type
pRecAb = ^ TRecAb;
TRecAb = record
NAb:st10;
Country:st35;
TypeAb:st1;
NameAb:st25;
RasSchet:st10;
Summ:Real;
CountTlg:word;
end;

var
ListAb:TList;
RecAb:=PRecAb;

begin
ListAb:=TList.Create;
New(RecAb);
RecAb^.TypeAb:=xx;
RecAb^.Country:=xx;
RecAb^.Summ:=xx;
RecAb^.NameAb:=xx;
RecAb^.CountTlg:=xx;
if ListAb.Count <> 0 then
begin
for k:=0 to ListAb.Count -1 do
RecAb:=ListAb.Items[k];
RecAb^.TypeAb:=xx;
RecAb^.Country:=xx;
RecAb^.Summ:=xx;
RecAb^.NameAb:=xx;
RecAb^.CountTlg:=xx;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »