这是我从一本书上抄的程序，为什么我和书上的一样会没法运行呢？ 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.

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

有if not的用法???

你把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;

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

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

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

这是一个登陆程序，

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

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

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