商道 发表于 2013-9-22 23:38:59

用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灬夢 发表于 2013-9-22 23:59:23

差不多酱紫吧。。

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

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

商道 发表于 2013-9-23 00:29:48

Biner 发表于 2013-9-23 00:00 static/image/common/back.gif
兄台可以自己动手练练啊！ 这个只是一个简单的API只要你仔细下就可以过的。

版主，我是初学者，看了很久 还是过不了 ，我自己想应该是可以用比较函数也可以做的 鱼C老师是用If语句实现的我按照视频用If也过了，
页: [1]
查看完整版本: 用comparestr比较函数写的视频9的密码程序，没有完善，希望哪位鱼友帮忙完善一下，谢