字符串排序问题

Question

delphi字符串排序

Answer 1

笨方法// D7
var
  c1, c2: string;
  sli1, sli2: TStringList;
begin
  c1 := 'L1;XL2;M2;S1';
  c2 := 'M2;L1;S1;XL2';
  sli1 := TStringList.Create;
  sli2 := TStringList.Create;
  ExtractStrings([';'], [' '], PChar(c1), sli1);
  ExtractStrings([';'], [' '], PChar(c2), sli2);
  sli1.Sort;
  sli2.Sort;
  if sli1.Text = sli2.Text then
    ShowMessage('相同')
  else
    ShowMessage('不同');
  sli1.Free;
  sli2.Free;
end;
btw , d2006+ 版本中的 TStringList 可以自定义分隔符，可以自设定 ;作为分隔符而不一定是,(CommaText)

Answer 2

就你写出来的两个String，1楼的办法还是不错的