Список

[Nazar1994]

Как написать список с нуля (без наследования у Tlist) чтоб туда можно было добавлять любые типи данних на delphi?

[fbus]

TRecord не подойдет?

[Grag]

Сообщение от Nazar1994

чтоб туда можно было добавлять любые типи
данних на delphi?

В списке используй тип данных Variant...

[Nazar1994]

Grag спасибо! А если ето objects игры (Tpul например, Tplane, и те что от них походят).

[Grag]

OleVariant...

[Nazar1994]

OleVariant...

Обявил массив типа olevariant и при присвоении TBitmap -- несовместимость типов.

[L_M]

Собственно просто список:

type
    TList=^PList;
    PList=record
        data:TBitmap;   //ну или какой-то другой тип
        next:TList;
    end;

var
    p:TList;

Как-то так...

[DomiNick]

Чтот не пойму саму идею... Если правильно догадываюсь то можно как в "7"... И через указатели всё...

[Nazar1994]

Чтот не пойму саму идею... Если правильно догадываюсь то можно как в "7"... И через указатели всё...

Например пишу я игру . Создал главный класс от которого наследуются все object игры (патроны, сам игрок, монстры). Мне надо создать класс список в который можно загонять все ети objects для того чтоб я потом мог пройтись по всему списку и просчитать физику например.

Собственно просто список:
Код:

type
TList=^PList;
PList=record
data:TBitmap; //ну или какой-то другой тип
next:TList;
end;

var
p:TList;
Как-то так...

обясните пожалуйста как ето работает и пример использования(мне кажется что в етот список можно загонять только один тип данных )

[Stilet]

Мне надо создать класс список в который можно загонять все ети objects

Класс-Контейнер:

  TCont=class
  private
   FObj:TObjectList;
    function GetObg(i: integer): TObj;
  public
   Property Item[i:integer]:TObj read GetObg;default;
   procedure Add(NewObj:Tobject);
   Constructor Create;
   Destructor Free;
  end;
...
{ TCont }

procedure TCont.Add(NewObj: Tobject);
begin
 FObj.Add(NewObj);
end;

constructor TCont.Create;
begin
 FObj:=TObjectList.Create;
end;

destructor TCont.Free;
begin
 FObj:=nil;
end;

function TCont.GetObg(i: integer): TObj;
begin
  if (i>=0)and(i<FObj.Count) then Result:=tObj(FObj[i]) else Result:=nil;
end;

А Сам обьект обьявляй как обычно.