字符串问题 字符串问题,例如S1=‘b;cc;d’,S2=‘d;b;cc’,即如果去掉分号后,两个字符串包含的分号两边的单个相同的,即判断S1=S2,如果S1=‘b;cc;d’,S2=‘d;b;c’即判断S1<>S2,怎样做这个判断? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 提供一个常用的方法:const S1='b;cc;d';S2='d;b;cc';var sL1,sL2:Tstringlist;begin sL1:=Tstringlist.Create; sL1.Delimiter:=';'; sL1.DelimitedText:=stringreplace(S1,' ','**##&&**',[]); {空格也会换行,所以随便用个字符替换掉} sL1.Sort; sL2:=Tstringlist.Create; sL2.Delimiter:=';'; sL2.DelimitedText:=stringreplace(S2,' ','**##&&**',[]);; sL2.Sort; if sL1.Text=sL2.Text then showmessage('相同') else showmessage('不相同') ; sL1.Free; sL2.Free;end; 如何在注册表引用自定义的DLL内的图标 请教SQL写法 我也问个,关于WINSOCK TCP多连接的问题 delphi裡沒有取去年的今天的系統函數嗎? 奇怪,请各位大哥帮我看看是怎么回事? 请问《delphi深度探索》和《~深度历险》适合我看吗? 为什么Delphi会自动截断小数点位数!?help me !!! 奇怪!动态生成的构件,为什么有时能显示提示信息有时不能!! 请问怎么用delphi把avi格式文件转成wma格式的啊 一个关于DBE的问题 unidac连接池如何使用? 求直角三角形的面积和周长,出现问题.不知道怎么解决.
var sL1,sL2:Tstringlist;
begin
sL1:=Tstringlist.Create;
sL1.Delimiter:=';';
sL1.DelimitedText:=stringreplace(S1,' ','**##&&**',[]); {空格也会换行,所以随便用个字符替换掉}
sL1.Sort; sL2:=Tstringlist.Create;
sL2.Delimiter:=';';
sL2.DelimitedText:=stringreplace(S2,' ','**##&&**',[]);;
sL2.Sort; if sL1.Text=sL2.Text then
showmessage('相同')
else
showmessage('不相同') ;
sL1.Free;
sL2.Free;
end;