Delphi面向对象的编程方法

　　执行程序，当Edit1部件接受到一个值，并按动“OK”按钮触发程序后，Number便被赋值为用户输入的数值。case语句根据Number的值判断该执行哪一条语句。象if语句一样。case语句也有可选择的else部分。case语句以end结尾。　

　　2.1.5 循环语句　

　　Object Pascal的循环语句有三种：repeat、while和for语句。　

　　2.1.5.1 repeat语句　

　　repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例程：　

　　i := 0;
repeat
i := i+1;
Writen(i);
until i=10;　

　　当此语句被执行时，窗体的下方会出现1到10的数字。布尔表达式 i=10 (注意，与其他语言不同的是，“=”是关系运算符，而不能进行赋值操作)直到repeat..until程序段的结尾才会被计算，这意味着repeat语句至少会被执行一次。　

　　2.1.5.2 while语句　

　　while语句和repeat语句的不同之处是，它的布尔表达式在循环的开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。

　　下面的例程达到和上面的repeat例程达到同样的效果：　

　　i := 0;
while i<10 do
begin
i := i+1;
writeln(i);
end; 　

　　2.1.5.3 for语句　

　　for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量，它的类型可以是整形、布尔型、字符型、枚举型或子界型。

　　下面的程序段会显示1到5的数字，i为控制变量：　

　　var
i : integer;
for i := 1 to 5 do
writeln(i);