我写了一个程序,前面提问:你好么?
后面要求回答.如果回答:好。就对了。回答其他的将提示你重新输入;
我在2000的机子上试了都可以
但是在xp上却不行答好之后,还是让重新输入
请问这是什么问题????
谢了、

解决方案 »

  1.   

    各位:
    代码就在这里了,非常简单的
    还请各位亲自一试
    type
      TForm1 = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Edit1: TEdit;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    begin
    if Edit1.Text='笑书神侠依碧鸳' then
    ShowMessage('Right! Congratulations!')
    else
    ShowMessage('Sorry!Input again?');end;procedure TForm1.Button2Click(Sender: TObject);
    begin
    Edit1.Text:='';
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
    close;
    end;procedure TForm1.FormCreate(Sender: TObject);
    beginend;
      

  2.   

    字符的问题?
    用English的看看这个问题应该是平台无关性的http://lysoft.7u7.net
      

  3.   

    修改判断条件试试.
    if Trim(LowerCase(Edit1.Text))=Trim(LowerCase('笑书神侠依碧鸳')) then
      

  4.   

    不可能有这个问题,否则delphi写的程序不就game over了吗!!