Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Мар

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

Posted by maloy under Delphi, Архив

russian-stalker

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

alexBlack

Код:

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).Free;
      L.Free;
   end;
end;

тема на форуме от 2009 года