编程论坛 → Delphi论坛

初次学delphi，一个小小的问题请教一下大家

slamliu 发布于 2005-08-09 20:36， 740 次点击

这是我从一本书上抄的程序，为什么我和书上的一样会没法运行呢？ unit log;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,guessfm;

type Tlogform = class(TForm) Edtusername: TEdit; user: TLabel; password: TLabel; Edtpassword: TEdit; Btnok: TButton; procedure BtnokClick(Sender: TObject); private { Private declarations } public { Public declarations } end;

var logform: Tlogform;

implementation

{$R *.dfm}

procedure Tlogform.BtnokClick(Sender: TObject); const username:string=''; password:string=''; begin if not(Edtusername.Text=username)then begin showmessage('输入的用户名错误，请重新输入!'); Edtusername.Text:=''; Edtusername.SetFocus; end else if not(Edtpassword.Text=password)then begin showmessage('输入的密码错误，请重新输入!'); Edtpassword.Text:=''; Edtpassword.SetFocus; end else begin guessfm.Show; log.Hide; end; end;

end.

7 回复

#2

slamliu2005-08-09 21:07

提示我是show和hide两个变量没有定义，但是show和hide不是两个方法啊

#3

hujunloves2005-08-17 22:10

有if not的用法???

#4

tyj5182005-08-18 10:11

你把BtnokClick过程改成这样： const username = ''; password = ''; var frmGuess: TGuessform; begin if not(Edtusername.Text=username)then begin showmessage('输入的用户名错误，请重新输入!'); Edtusername.Text:=''; Edtusername.SetFocus; end else if not(Edtpassword.Text=password)then begin showmessage('输入的密码错误，请重新输入!'); Edtpassword.Text:=''; Edtpassword.SetFocus; end else begin frmGuess := new Tguessform(nil); frmGuess.Show; Hide; end; end;

#5

killtry2005-09-07 23:32

你的程序里面就没有guessfm,那delphi怎么show啊还有log也没有啊

#6

wengjiachun2005-11-02 15:36

书上的很多程序是错的，要自己改。

#7

xingkui08242005-11-07 17:59

就是对于我们新手来说,书上的错误简直是误人子弟!

#8

zhangzujin2005-11-07 23:00

这是一个登陆程序，

guessfm.Show;
log.Hide;
guessfm和log都是窗体，有Show和Hide方法，

但是log很可能有错误，应该为logform
而guessfm则是另外一个窗体，要在
implementation

{$R *.dfm}
后加入
guessfm窗体的实现单元如guessunit;具体情况看guesfm的源文件的第一行。

1