Все экземпляры класса

[russian-stalker]

Как мне перебрать все экземпляры класса MyClass, и оставить тот у которого name равен 'q1'?
Заранее, спасибо

[Пепел Феникса]

у вас эти экземпляры в массиве или где?

[russian-stalker]

Нигде:-)
Я просто создаю

var
class:Myclass;
begin
for i:=0 to 10 do
class:=MyClass.create('q'+intotstr(i));
end;

Пытался добавить в tlist экземпляры, но ругается

[Пепел Феникса]

тогда никак.+это утечки памяти.
используте например array of MyClass
и через него перебирайте

[alexBlack]

Сообщение от russian-stalker

Пытался добавить в tlist экземпляры, но ругается

С чего бы это ?:

procedure TForm19.FormCreate(Sender: TObject);
var C:MyClass;
    L:TList;
    i:integer;
begin
   L := TList.Create;
   try
      C := MyClass.Create;
      L.Add(C);


   finally
      for i := 0 to L.Count - 1 do MyClass(L[i]).Free;
      L.Free;
   end;
end;

[Altera]

Сообщение от russian-stalker

Как мне перебрать все экземпляры класса MyClass, и оставить тот у которого name равен 'q1'?
Заранее, спасибо

var
class:Myclass;
begin
for i:=0 to 10 do
class:=MyClass.create('q'+intotstr( i));
end;

Если tList ругается, хотя не знаю, с какого бадуна ему это делать, можешь попробовать TObjectList (модуль Contnrs), он наследуется от tList и работа с ним не многим отличается от последнего.


//Процедура добавления TObjectList.Add

function TObjectList.Add(AObject: TObject): Integer;
begin
  Result := inherited Add(AObject);
end;

[russian-stalker]

Дурак, я дурак :-)
Забыл таки инициализировать Tlist
Спасибо всем за ответы