为什么坟贴这么多~ 第一个程序 记录成长过程 有同起点的一起交朋友 共同交流学习！
//鱼C加密程序//
//写了四次，前两次自己看一下功能，但没写出来
//
//第三次看完视频再写终于写出来了这是第四次代码，完全自己写
//
//这套视频看了不下五遍终于能写出个小程序 ，以此激励自己 ！
//
//代码最后分享写这代码所出现的问题
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
lbl1: TLabel;
edt1: TEdit;
btn1: TButton;
btn2: TButton;
procedure btn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i : Integer ; //全局变量 计错误次数
implementation
{$R *.dfm}
procedure TForm1.btn2Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.PasswordChar := '$'; //密码用'$'号表示
i := 3; //窗口加载时设变量 i 初值
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
if edt1.Text = '' then //判断密码输入框是否为空
MessageBox(Handle ,'请输入密码！','提示',MB_OK )
else
begin
if (UpperCase(edt1.text ) = 'FISHC') or
(LowerCase(edt1.Text) = 'www.fishc.com') or
(CompareText(edt1.Text,'fishc.com') = 0) then
//判断密码是否正确(三个密码)用到学的三个函数 （UpCase LowerCaseCompareText）
begin
MessageBox(Handle , '恭喜你，回答正确！', '恭喜', MB_OK);
i:= 3;
//特别定义这个位置如果正确 i 继续为3可有可无
lbl1.Caption :='密码正确，欢迎使用~~~！';
end
else
i := i-1;
//出错的地方~~~ 如果写在下面的if里 能输入四次密码
begin
if i < 1 then
//判断 错误次数没有超过3次的情况
begin
MessageBox( Handle , '密码错误超过3次，程序将自动关闭','警告', MB_OK );
Form1.Close ;
end
else
//判断 错误次数超过3次的情况
begin
lbl1.Caption := '密码错误，还有'+ IntToStr(i) + '次机会';
end;
end;
end;
end;
end.
//写完调试的时候，最易出错的地方是分号，if then else 及if 嵌套时出现 分号出问题
我也是学了一段时间新手，可以一起交流下！ pyxcc01 发表于 2016-8-23 17:22
我也是学了一段时间新手，可以一起交流下！
一起学习交流 共同进步 有个人共同学习 感觉学的时候还有个比拼的劲头 自己学太无聊 半半半半半 发表于 2016-8-24 17:19
一起学习交流 共同进步 有个人共同学习 感觉学的时候还有个比拼的劲头 自己学太无聊
你QQ多少啊 pyxcc01 发表于 2016-8-25 14:24
你QQ多少啊
568005450 楼主来一起加一下，搞个群吧，我qq384310826，好久没学delphi了，忘了好多，现在继续拾起！
页:
[1]