Сломал мозг.

Есть код:

var obj:TMyObject;

begin

for i:=1 To 10 do begin
obj:=TMyObject.Create();
obj.ID:=i;
SaveObject(@obj); // там указатель на объект сохраняется в TList, мы его не теряем и о нем позаботимся.
end;


Теперь проблема - в каждой итерации объект создается в том же месте памяти и затирает предыдущий объект.
Как его разместить в новом месте?

(0) Не понял. @obj - это адрес именно obj. Он - один и тот же, пока переменная obj существует.

(1) Перефразирую.
Мне надо создать 10 разных объектов 1-ого класса.

(2) Это я понял. Но они и создаются спокойненько.
У меня есть подозрение, что всё портит SaveObject. Что ты сохраняешь в список не тот адрес.

for i:=1 To 10 do begin
obj[i]:=TMyObject.Create();
obj[i].ID:=i;

Ты получаешь адрес переменной obj, которая естественно всегда остается в одном месте памяти.

А ссылкой на созданный объект конечно-же является не @obj, а сама переменная obj.

(4) я это не отправлял :)

(3) Нет, всё портит непонимание типа переменной
var obj:TMyObject;
Это ссылка на объект, а сама переменная находится по фиксированному адресу.

(3) Да, он не то сохраняет в список.

(7) Об этом я писал в (1). Но что внутри у SaveObject - нам пока неизвестно.

Но судя по тому что он изначально передает @obj - он уже запутался.

(10) Согласен.

Спасибо, добрые люди.

Теперь еще вопрос - как получить адрес метода объекта:

Вот как-то так:
нужно call-back указать:

CreateThread(nil,0,@Self.ThreadProc,nil,0,PID);

Нэ получается.

Так, кажись нашел
self.MethodAddress('ThreadProc')

(12) Можно завести переменную нужного типа, например,

var ThrP: procedure of object; stdcall;

и затем

ThrP := ThreadProc;
CreateThread(nil,0,ThrP,nil,0,PID)

(14) Точняк! Спасибо.

Но и (13) работает!

(2) 10 объектов - это массив, или я чего-то не понимаю?