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

Вниз

New заморочка от Русского ;)   Найти похожие ветки 

← →
Русский   (2001-12-21 21:54) [0]

Есть процедура:
procedure EnumResource;
begin
...
if Assigned(OnEnumResource) then OnEnumResource(Self, Buf);
...
end;
Соотв. есть обработчик:
procedure OnEnumResource(Sender: TObject; Buf: TNetworkResource);
// где TNetworkResource - мой класс.
Итак трабла: значения из полей Buf - читаются, а если ими заполнять
List, примерно так:
...
List.Add(Buf);
...
При чтении из этого List"а получаем, что в каждом элементе, почему - то
одинаковые значения, причём каждый элемент - равен последнему элементу,
засунутому в List. А без List"а - процедура работает!!!

---

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

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

Наверх

Память: 0.44 MB
Время: 0.002 c