Delphi新语法介绍之For In

Delphi 新语法介绍之 For In Delphi 2005 起，Delphi 中引入了 For In 语句，这是一种新的循环语句，类似于 Java 和 C# 中的 For In 语句。For In 语句可以用来遍历数组、字符串、集合、记录体等类型的数据结构。 For In 语句的基本语法为：for 变量 in 表达式 do 语句;其中，变量是要遍历的元素，表达式是要遍历的数据结构，语句是要执行的代码。 Delphi 中支持的数据结构包括： * 数组：for Element in ArrayExpr do Stmt; * 字符串：for Element in StringExpr do Stmt; * 集合：for Element in SetExpr do Stmt; * 记录体：for Element in Record do Stmt; 例如，我们可以使用 For In 语句来遍历一个数组： ``` var arrayExpr: array[0..5] of Integer = (1, 2, 3, 4, 5, 6); procedure TForm1.FormCreate(Sender: TObject); var I: Integer; begin for I in arrayExpr do ShowMessage(IntToStr(I)); end; ``` 在上面的例子中，我们使用 For In 语句来遍历数组 arrayExpr，并将每个元素的值显示出来。 在 Delphi 中，如果我们要自己的类支持 For In 语句，那么我们需要满足三个条件： 1. 必须有个公共方法 GetEnumerator()，这个方法返回值是一个类、接口或者记录体。 2. 上面返回的类、接口或者记录体中又必须有公共方法 MoveNext()，这个方法的返回值是 Boolean。 3. 上面返回的类、接口或者记录体中必须有一个只读的属性 Current，类型要和集合中的元素一样。 例如，我们可以定义一个自己的类 TMyContainer，来支持 For In 语句： ``` type TMyIntArray = array of Integer; TMyEnumerator = class public Values: TMyIntArray; Index: Integer; constructor Create; function GetEnumerator: TMyEnumerator; function MoveNext: Boolean; property Current: Integer read GetCurrent; end; TMyContainer = class public function GetEnumerator: TMyEnumerator; end; ``` 在上面的例子中，我们定义了一个 TMyContainer 类，该类有一个 GetEnumerator() 方法，该方法返回一个 TMyEnumerator 对象。TMyEnumerator 对象有一个 MoveNext() 方法和一个 Current 属性，这些方法和属性都是为了支持 For In 语句的。 Delphi 中的 For In 语句是一种非常有用的语句，可以简化我们的编程工作，并且可以提高代码的可读性。但是，我们需要注意，在使用 For In 语句时，需要满足一定的条件，以便正确地遍历数据结构。