Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

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


SlavaNew   (2001-12-26 07:28) [0]

Вопрос в следующем...
Сoздаю список TList
Затем сщздаю несколько однотипных объектов и закидываю их указатели в этот самый список TList.
И затем, перебирая этот список, хочу изменить свойство объектов закинутых в него объектов или вытащить имя их родителя или еще что-нибудь такое, но не получается нифига.
Как сделать с объектом какое-нибудь действие?



gek   (2001-12-26 07:36) [1]

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;



MBo   (2001-12-26 08:10) [2]

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



gek   (2001-12-26 09:06) [3]

>> MBo
Да я согласен можно и без извлечения, просто
пытался дать понять чел как это работает



MBo   (2001-12-26 09:08) [4]

ну да, пусть посмотрит разные методы доступа



SlavaNew   (2001-12-26 11:11) [5]

Всем ОГРОМНОЕ СПАСИБО...
Вроде понял, пойду разбираться...
Если что... вернусь...;о))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.028 c
1-42400           GARIK_PR              2001-12-26 15:07  2002.01.14  
Интеграция с математическими пакетами программ.


3-42361           Ross                  2001-12-11 20:54  2002.01.14  
ADO


3-42339           Sanych                2001-12-11 09:40  2002.01.14  
Работа с удаленной бд


14-42570          anod                  2001-11-09 20:39  2002.01.14  
Настройки Делфи


1-42509           Sergo                 2001-12-26 10:15  2002.01.14  
Кто-нибудь может подсказать алгоритм поворота растрового изображения?