如果只是楼主说的2个这样的,你可以这么做,你每次不是都有-符号么,POS出他的位置
截取前面的字符B和后面的字符A
同样的做法截取后面的A和B
现在好了啊,定义三个字符串变量
var s:string;
m:string;
d:string;
begin
s:='B'+'A';-----针对前面的输入
m:='A'+'B' -----针对前面的输入,调换下次序
d:='B'+'A' -----针对后面的输入,不用换次序
//s,m都是A-B得到的结果
if (s=d) or (m=d) then
begin
showmessage(一样的组合);
end;
这个是一般的方法,如果很多,比如A-B-C-D-E-F这样的,
pos出来给数组,用数组去判断了,希望能帮到你