我写了一个程序,前面提问:你好么?
后面要求回答.如果回答:好。就对了。回答其他的将提示你重新输入;
我在2000的机子上试了都可以
但是在xp上却不行答好之后,还是让重新输入
请问这是什么问题????
谢了、
后面要求回答.如果回答:好。就对了。回答其他的将提示你重新输入;
我在2000的机子上试了都可以
但是在xp上却不行答好之后,还是让重新输入
请问这是什么问题????
谢了、
解决方案 »
- 如何生成十个连续不重复的随机数
- 代码为何出错?
- Delphi7从入门到精通 原作者:Marco Cantù 译 者:老汉山人,[email protected]
- 急:如何在动态库的MDI窗体释放时释放所有资源
- 请问如何将talbe中某一列的所有值副给combobox的items 谢谢!
- 弹出菜单的问题
- 再 求简单delphi5以上 +数据库
- "Invalid floating point operation"怎么回事?
- 又一个SQL SERVER 中ID号自动增加问题?
- 怎样才能通过我的应用程序得知其它应用程序的一个控件的handle?
- 急问,关于ado读取DBF的问题,谁知道怎么样解决
- [分享]微软技术开发模版,分享给大家! 很好的资料.
代码就在这里了,非常简单的
还请各位亲自一试
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;
用English的看看这个问题应该是平台无关性的http://lysoft.7u7.net
if Trim(LowerCase(Edit1.Text))=Trim(LowerCase('笑书神侠依碧鸳')) then