【Delphi7】《零基础入门学习Delphi》P35用户自定义类型
我用了Edit2显示出了元音字母，唯一的缺点就是显示有重复的还不知道怎么改进，知道的麻烦告诉我一下unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
vowe1: set of Char;
str:String;
i,j:Integer;
begin
Edit2.Text :='';
vowe1:=[];
j:=Length(Edit1.Text );
for i:=1 to j do
begin
str:=Copy(Edit1.Text ,i,1);
if (str='a')or(str='A')then
begin
vowe1:=vowe1+['a'];
Edit2.Text :=Edit2.Text +'a';
end;
if (str='e')or (str='E')then
begin
vowe1:=vowe1+['e'];
Edit2.Text :=Edit2.Text +'e';
end;
if (str='i')or (str='I')then
begin
vowe1:=vowe1+['i'];
Edit2.Text :=Edit2.Text +'i';
end;
if (str='o')or (str='O')then
begin
vowe1:=vowe1+['o'];
Edit2.Text :=Edit2.Text +'o';
end;
if (str='u')or (str='U')then
begin
vowe1:=vowe1+['u'];
Edit2.Text :=Edit2.Text +'u';
end;
end;
if vowe1=[] then
ShowMessage('未含有元音字母') ;
end;
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text :='';
end;
end.
页:
[1]