……
这是个什么概念？if判断语句不行？
判断语句最好用的就是if了，不行也只是你写的条件的问题。
其他的case of多项判断、while和for的循环时有个判断，都不怎么合乎你的要求吧。
如果你现在情况是因为，你输入的字符和预期得到的结果不符，那应该是你判断条件的问题。
if trim(edit1.text)='XXX' then //如果是不区别大小写建议lowercase(trim(edit.text))='xxxxx'
begin
end
else
begin
end;
在下面过程中加入判断
procedure TForm1.Edit1Change(Sender: TObject);
begin
if trim(edit1.text)='XXX' then
begin
end
else
begin
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024