Добавление объектов в TStringList

← →
orion_st (2003-02-17 11:51) [0]

Help!!!
В цикле добавляю объекты через
events.AddObject(IntToStr(event.id),TObject(event));

При этом добавлении у меня не только добавляется новый объект, но и почему-то перезаписываются ранее добавленные объекты новым.

Т.е. добавляю первый объект в итоге получаю
TEvent(events.Objects[0]).id=1

Добавляю второй объект, получаю:
TEvent(events.Objects[0]).id=2
TEvent(events.Objects[1]).id=2

и так далее. Как от этого избавиться?

← →
Digitman (2003-02-17 12:08) [1]

как формируется event непосредственно перед очередным добавлением ?

← →
orion_st (2003-02-17 12:20) [2]

Из текстового файла считываю построчно, разбираю строку, из нее формирую значения полей event-а. Потом добавляю.

event имеет тип TEvent:
Tevent = class
id: integer;
<...>
end;

← →
Anatoly Podgoretsky (2003-02-17 12:25) [3]

Наверно ошибка в коде

← →
Digitman (2003-02-17 12:28) [4]

если перед каждым AddObject() выполняется
event := TEvent.Create,
этого быть не должно

← →
orion_st (2003-02-17 12:34) [5]

А зачем каждый раз креатить event? Я его один раз создаю, затем просто изменяю поля и новый вариант добавляю в events, который TStringList. Или так не корректно?

← →
Reindeer Moss Eater (2003-02-17 12:36) [6]

Гы Гы Гы :)
Некорректно канешна!

← →
Reindeer Moss Eater (2003-02-17 12:38) [7]

Ситуация как в той поговорке:
"Кто последний - тот и папа"
Единственный экзепляр объекта и многократное его модифицирование

← →
Digitman (2003-02-17 12:42) [8]

> Я его один раз создаю, затем просто изменяю поля и новый
> вариант добавляю в events, который TStringList

В этом случае всякий раз при при чтении св-ва Id ты будешь обращаться к одному и тому же объекту и получать, соответственно, одно и то же зн-е св-ва. Что ты и наблюдаешь)

Добавление объектов в TStringList Найти похожие ветки