Re[3]: Получение указателя на объект
От: dymka Россия  
Дата: 08.08.03 06:54
Оценка: 3 (1)
Здравствуйте, Tikhon, Вы писали:

T>Здравствуйте, dymka, Вы писали:


D>>Вообще в Delphi все переменные объекта ЯВЛЯЮТСЯ УКАЗАТЕЛЯМИ, т.е. получать то ничего как раз не надо.

D>>
T>Это всё хорошо. Только есля я пользуюсь VCL. Я пользуюсь только компилятором Delphi, f bcgjkmpe. WinApi.
Итак, смотрим исходный код TList (никогда не помешает посмотреть как это уже давно сделано...):

  PPointerList = ^TPointerList;
  TPointerList = array[0..MaxListSize - 1] of Pointer;
...
  TList = class(TObject)
  private
    FList: PPointerList;
    FCount: Integer;
...
function TList.Add(Item: Pointer): Integer;
begin
  Result := FCount;
  FList^[Result] := Item;
  Inc(FCount);
end;


Что тебе мешает сделать тоже самое???
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.