用comparestr比较函数写的视频9的密码程序，没有完善，希望哪位鱼友帮忙完善一下，谢

商道

用comparestr比较函数写的视频9的密码程序，没有完善，希望哪位鱼友帮忙完善一下，谢谢，

implementation
var
  n:integer = 3 ;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_CENTER);
Edit1.Invalidate;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  R1:string;
  R2:Integer;
begin
  R1:= Edit1.Text;
  R2:=compareStr( 'yangyinideai', R1 );
  n:= n-1 ;
  if ( R2 <> 0 ) then
   begin
     Label1.Caption:= '请您再次输入密码，您还有' + IntToStr( n ) + '次机会！'
   end
  else
  MessageBox( handle, '恭喜您！密码正确', '提示', MB_OK )
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.Text:= '';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

end.

丿Clover灬夢

差不多酱紫吧。。

Biner

兄台可以自己动手练练啊！ 这个只是一个简单的API只要你仔细下就可以过的。

商道

Biner 发表于 2013-9-23 00:00

                               
登录/注册后可看大图

兄台可以自己动手练练啊！ 这个只是一个简单的API只要你仔细下就可以过的。

版主，我是初学者，看了很久 还是过不了 ，我自己想应该是可以用比较函数也可以做的 鱼C老师是用If语句实现的  我按照视频用If也过了，