Question

delphi的问题高手帮忙，望求正解

var
Form1: TForm1;
name:string;
code:string;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

if(name=null or code=null)then
showmessage('请先注册一个用户')
else
if(edit1.text=name and edit2.text=code) then//这行出错
showmessage('登陆成功')
else
showmessage('用户名或密码错误');
end;
出错提示
[Error] Unit1.pas(50): Operator not applicable to this operand type
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

这是form1
下面是form2

var
Form2: TForm2;
name:string;
code:string;

implementation

{$R *.dfm}
begin
name:=form2.edit1.text;
code:=form2.edit2.text;
end.

Answer 1

1.关机代码:
procedure TForm1.FormCreate(Sender: TObject);
var
hToken : THandle;
Tkp : TTokenPrivileges;
Zero:DWORD;
begin
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
LookupPrivilegeValue(nil,'SeShutdownPrivilege',tkp.Privileges[0].Luid);
Tkp.PrivilegeCount :=1;
Tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken,False,Tkp,SizeOf(TTokenPrivileges),nil,Zero);
end;

procedure TForm1.btnOKClick(Sender: TObject);
begin
if self.RadioButton1.Checked then
begin
ExitWindowsEx(EWX_LOGOFF,0);
end;
if self.RadioButton2.Checked then
begin
ExitWindowsEx(EWX_REBOOT,0);
end;
if self.RadioButton3.Checked then
begin
ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;
end;

2.
让Form2显示
var
Form2:TForm;
begin
Form2:=TForm.Create(Application);
Form2.Position:=poDesktopCenter; //加上这个
Form2.width:=347;//加上这个
Form2.Height:=240;//加上这个
Form2.Show;
end;

3.
隐藏运行目录下批处理文件.
使用Winexec('xxx.bat',0); //隐藏运行目录下的xxx.bat

Answer 2

语法有待提高
if(length(name)=0) or (Length(code)=0)then
...

Answer 3

if(edit1.text=name and edit2.text=code) then//
改一下，
if(edit1.text=name) and (edit2.text=code) then//
程序第一句也要改一下
if(name='') or (code='')then
showmessage('请先注册一个用户')
else
if(edit1.text=name) and (edit2.text=code) then//这行出错
showmessage('登陆成功')
else
showmessage('用户名或密码错误');
end;