unit1.pas

很好地delphi书籍源码

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ComCtrls;

type
  TForm2 = class(TForm)
    Label4: TLabel;
    Edit_word: TEdit;
    SpeedButton1: TSpeedButton;
    StatusBar1: TStatusBar;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);
type
  Lchars=set of 'a'..'z';                          //集合类型
const
  TargetSet:Lchars=['a','e','i','o','u'];
var
  Loc_str:string;
  i,Loc_count:byte;
  Loc_c:char;
begin
  Loc_count:=0;
  Loc_str:=LowerCase(Edit_word.Text);
  for i:=1 to Length(Loc_str) do
  begin
    Loc_c:=Loc_str[i];
    if Loc_c in TargetSet then
      inc(Loc_count);
  end;
  StatusBar1.SimpleText:=Format('你所输入的英语单词是：'''+Edit_word.Text+
                         ''',其中包含%d个元音字母',[Loc_count]);
end;


end.