求一种以开头第一个数值的组合方法

Question

有A-B-C-D-E数值,以分隔符号"-"进行数值分隔,如何自动排列出以A开头的组合?组合出来的效果: A-B; A-C; A-D....假如数值分别为: H-J-K-L-O-P-Q....
需要组合出来的效果是: H-J; H-K; H-L; H-O; H-P; H-Q;

Answer 1

用 tstringlist 就可以处理了

Answer 2

  with TStringList.Create do
    try
      Delimiter := '-';
      DelimitedText := 'H-J-K-L-O-P-Q';
      for I := 1 to Count - 1 do
        Strings[I] := Format('%s-%s;', [Strings[0], Strings[I]]);
      if Count > 0 then
        Delete(0);      ShowMessage(StringReplace(Text, sLineBreak, ' ', [rfReplaceAll]))
    finally
      Free
    end;