正文
DELPHI 里面的迭代
小程序：扫一扫查出行【扫一扫了解最新限行尾号】
复制小程序
迭代(Iiterator)的作用：遍历一个集合(Collections)的每一个元素(item)。
delphi 2005之后新加入一种 for .. in .. 遍历语句，支持String,Set,array,record,Interface,class。能够时代码的for循环更加简洁。
以前的结构
var
S: string;
i: integer;
begin
for i := to MyStrings.Count- do
begin
S := MyStrings[i];
writeln(S);
end;
end;
现在的结构
var
S: string;
begin
for S in MyStrings do
writeln(S);
end;
为了自定义这种结构，我们的代码需要满足如下规则：
1.你必须有一个 class , interface 或者 record 的自定义类型
2.你的 class ,interface 或者record类型必须暴露一个GetEnumerator方法，该方法返回一个你的迭代器
3.你的迭代器可以是class , interface 或者 record中的一种类型。
4.你的迭代器需要暴露MoveNext(): boolean; Current:你的元素类型。
5.MoveNext方法在当前选中的元素是最后一个之后返回False，否则返回True
6.你的迭代器创建之时当前元素应该为-1，在调用moveNext之后才能指向第一个元素。
如下例：
type
{ 迭代器 }
TRecordEnumerator = record
private
FArray: TBytes;
FIndex: Integer; function GetCurrent: Byte;
public
function MoveNext(): Boolean;
property Current: Byte read GetCurrent;
end; { 需要被迭代的集合}
TRecordCollection = record
private
FArray: TBytes;
public
function GetEnumerator(): TRecordEnumerator;
end;{ TRecordCollection }function TRecordCollection.GetEnumerator: TRecordEnumerator;
begin
Result.FArray := FArray;
Result.FIndex := -;
end;{ TRecordEnumerator }function TRecordEnumerator.GetCurrent: Byte;
begin
Result := FArray[FIndex];
end;function TRecordEnumerator.MoveNext: Boolean;
begin
Inc(FIndex); if FIndex >= Length(FArray) then
Exit(false); Exit(true);
end;var
LColl: TRecordCollection;
B: Byte;begin
LColl.FArray := TBytes.Create(, , , , , ); for B in LColl do
WriteLn(B); ReadLn;
end.
