按字母表顺序每隔一个字母打印

procedure TForm3.Button1Click(Sender: TObject);

var  i:integer;

begin

      {

            for  i:=  0 to  25 do

            begin

              if i mod 2 =0 then        //实现了步长为2

            memo1.Lines.Add(    chr( ord('a')+i));

            end;

          }

            i:=0;

              while  i<25  do

              begin

                memo1.Lines.Add(    chr( ord('a')+i));

                i:=i+2;              //实现了步长为2

              end;

end;

----------------------------------也可以如下，即打印出：a c e g I k m o q s u w y

程序中，我们利用了字符类型是顺序类型这一特性，直接将字符类型变量作为循环变量，使程序处理起来比较直观。

procedure TForm3.Button1Click(Sender: TObject);

var  i:char;

begin

        {

            for  i:=  'a' to 'z' do

            begin

              if    ord(i) mod 2 <>0 then        //实现了步长为2

            memo1.Lines.Add(i);

            end;

          }

            i:='a';

              while  i<'z'  do

              begin

                memo1.Lines.Add(  i);

                i:=chr(ord(i)+2);              //实现了步长为2

              end;

end;