Маленькое предложение по расширению TCollection

[Climber]

Давайте туда что-нибудь типа такого добавим:

Код: Выделить всё

interface
type
  TIteratorProc: procedure(CollectionItem: TCollectionItem) of object;

  TCollection
  ...
  public
    procedure Iterator(IteratorProc: TIteratorProc);
  end;

implementation

procedure TCollection.Iterator(IteratorProc: TIteratorProc);
var i: integer;
begin
  for i:=0 to Count-1 do
    IteratorProc(Items[i]);
end;

Короче, такой способ разом произвести определенное действие над всеми элементами коллекции.
Себе-то я уже сделал, вот теперь хотел с остальными поделиться...

[Mr.Smart]

Climber
http://wiki.freepascal.org/for-in_loop/ru

[hinst]

статья описывает то, чего в стабильном релизе нет. сейчас прогнал поиск строки "IEnumerable" по source от fpc 2.4.0, поисковик показывает, что нет там такой
алсо делал так

Код: Выделить всё

for c in s do Write(c);

, компилятор 2.4.0 ругается

[Mr.Smart]

hinst
Так возьми fpc из svn

Добавлено спустя 1 минуту 17 секунд:

статья имхо лажа.

Не нравится отредактируй! Это перевод с буржуйского...

[alexrayne]

Старый турбовижн етот метоб называл ForEach.
а по поводу

http://wiki.freepascal.org/for-in_loop/ru

это можно делать и в пределах стандартов паскаля, а не прибегать к исхищрениям компилятора.
имхо что итератор что цикл - оба дадут одинаковый результат, вопрос что можно сделать оптимизированее.
мне кажется оба варианта имеют право на жизнь.

[sign]

Есть ещё один удобный механизм:

Код: Выделить всё

var T: TCollection;
    P: TCollectionItem;
begin
...
  for P in T1 do  MyProc(P);   
...
end;