Delphi新语法 For ..In

转载

mob604756f04b77 2018-07-24 19:19:00

首先我们要知道哪些类型可以用For In吧,下面就是:

我们来看例子:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25	`type` `THuangJacky = (hjA,hjB,hjC,hjD);` `TJackyHuang =` `record` `a,b,c:``Integer``;` `end``;` `const` `stringExpr=``'HuangJacky'``;` `arrayExpr:``array``[``0..5``]``of` `Integer``= (``1``,``2``,``3``,``4``,``5``,``6``);` `setExpr:``set` `of` `THuangJacky = [hjA,hjB,hjD];` `procedure` `TForm1``.``FormCreate(Sender: TObject);` `var` `I:``Integer``;` `C:``Char``;` `D:THuangJacky;` `F:TComponent;` `begin` `for` `c``in` `stringExpr``do` `ShowMessage(C);` `for` `i``in` `arrayExpr``do` `ShowMessage(IntToStr(i));` `for` `d``in` `setExpr``do` `ShowMessage(IntToStr(Ord(d)));` `for` `F``in` `Self``do` `ShowMessage(f``.``Name);` `end``;`

是不是很爽呀?哈哈,Delphi也与时俱进呀.

之前写了类助手文章中,老赵问是不是扩展方法,因为对C#没有了解到这么多,所以不知道.

那么我们在Java中要For In必须实现Iterator吧.

那么Delphi的会不会也要呢?

是的,如果我们要自己的类支持For In的话,就必须满足下面的条件:

1 必须有个公共方法GetEnumerator(),这个方法返回值是一个类,接口或者记录体.

2 上面返回的类,接口或者记录体中又必须有公共方法MoveNext(),这个方法的返回值是Boolean.

3 1中返回的类,接口或者记录体中必须有一个只读的属性Current,类型要和集合中的元素一样.

说了这么多,看个例子:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61	`type` `TMyIntArray =` `array` `of` `Integer``;` `TMyEnumerator =` `class` `Values: TMyIntArray;` `Index:` `Integer``;` `public` `constructor` `Create;` `function` `GetCurrent:``Integer``;` `function` `MoveNext:` `Boolean``;` `property` `Current:` `Integer` `read GetCurrent;` `end``;` `TMyContainer =` `class` `public` `function` `GetEnumerator: TMyEnumerator;` `end``;` `constructor` `TMyEnumerator``.``Create;` `begin` `inherited` `Create;` `Values := TMyIntArray``.``Create(``100``,``200``,``300``);` `Index := -``1``;` `end``;` `function` `TMyEnumerator``.``MoveNext:``Boolean``;` `begin` `if` `Index < High(Values)` `then` `begin` `Inc(Index);` `Result :=` `True``;` `end` `else` `Result :=` `False``;` `end``;` `function` `TMyEnumerator``.``GetCurrent:``Integer``;` `begin` `Result := Values[Index];` `end``;` `function` `TMyContainer``.``GetEnumerator: TMyEnumerator;` `begin` `Result := TMyEnumerator``.``Create;` `end``;` `var` `MyContainer: TMyContainer;` `I:``Integer``;` `Counter:``Integer``;` `begin` `MyContainer := TMyContainer``.``Create;` `Counter :=` `0``;` `for` `I``in` `MyContainer``do` `Inc(Counter, I);` `WriteLn``(``'Counter = '``, Counter);` `end``.`