论坛 › Delphi交流 › 增加自己的信心晒一晒（感谢小甲鱼老师）

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

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

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



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

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 static/image/common/back.gif
弱弱的问一句，你是用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

加油学习{:5_109:}

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

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

http://bbs.fishc.com/xwb/images/bgimg/icon_logo.png 来自 特色餐厅微营销-Teresa465 的新浪微博

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

加油！！！

查看完整版本: 增加自己的信心晒一晒（感谢小甲鱼老师）