增加自己的信心晒一晒（感谢小甲鱼老师）

月平 · 发表于 2014-4-7 10:41:38

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由月平于 2014-4-7 10:44 编辑

Project1.rar (156 KB, 下载次数: 28)

今天第一句话！感谢上天阳光雨露，感谢小甲鱼老师，发个贴，之后专心上班学习甲鱼老师的课程！！！
QQ截图20140407103632.jpg

unit mima;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
edt1: TEdit;
btn1: TButton;
edt2: TEdit;
procedure btn1Click(Sender: TObject);
procedure edt1Change(Sender: TObject);
  private
{ Private declarations }
  public
{ Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
  str: string;
  str1: string;
  i: Integer;
begin
  str:= edt1.Text;
  str1:= LowerCase(str) ;
  i:= CompareStr('fishc.com',str1);
  if (i<>0)
  then edt2.Text:='密码错误，滚蛋！！'
  else edt2.Text:='恭喜您密码正确！！';

end;
procedure TForm1.edt1Change(Sender: TObject);
begin
edt1.PasswordChar:='*';
end;
end.

月平 · 发表于 2014-4-7 10:45:25

{:1_1:}今天第一句话！感谢上天阳光雨露，感谢小甲鱼老师，发个贴，之后专心上班学习甲鱼老师的课程！！！

杞人 · 发表于 2014-4-7 10:49:22

:sleepy:骚年加油吧

bj584767285 · 发表于 2014-4-7 10:55:34

呵呵，加油！

福禄娃娃 · 发表于 2014-4-7 10:58:50

加油！骚年:lol:

～风介～ · 发表于 2014-4-7 11:03:28

加油哦！我们一起努力！{:1_1:}

Jong0019 · 发表于 2014-4-7 11:31:02

很好很强大，

linwin108 · 发表于 2014-4-7 11:44:42

不错，都有作业拿出来晒

月平 · 发表于 2014-4-7 12:07:00

{:1_1:} 努力有这么多的师兄

红头发 · 发表于 2014-4-7 14:12:28

加油少嫩。。

我疯狂我成功 · 发表于 2014-4-7 15:39:09

我是师弟，加油

隨鈊乄鎍慾 · 发表于 2014-4-7 19:47:49

弱弱的问一句，你是用delphi写的吗？

曾经的人 · 发表于 2014-4-8 09:29:06

加油。加油。

月平 · 发表于 2014-4-8 09:57:06

隨鈊乄鎍慾发表于 2014-4-7 19:47

登录/注册后可看大图

弱弱的问一句，你是用delphi写的吗？

是的正在学习甲鱼老师的 delphi7.0

rmb788520 · 发表于 2014-4-8 12:22:46

加油加油啦

幸运猪 · 发表于 2014-4-8 14:34:10

加油学习。。

rain_yu · 发表于 2014-4-11 22:07:16

两包烟的钱，把不了妹买不了田，不如拿来支持小甲鱼推出更多原创教学视频！
加油学习。。

墨抒，雪落情 · 发表于 2014-4-11 22:37:11

加油学习

微博评论 · 发表于 2014-4-16 12:11:39

餐厅老板都在苦于如何开发kehu的时候，我们已经可以帮你实现~

登录/注册后可看大图

来自特色餐厅微营销-Teresa465 的新浪微博

by024 · 发表于 2014-4-16 15:05:14

加油！！！

账号		自动登录	找回密码
密码			立即注册

[技术交流] 增加自己的信心晒一晒（感谢小甲鱼老师）

马上注册，结交更多好友，享用更多功能^_^