CSDN看到一个问题，蛮有意思，自己写了下代码

一个单词，可以在其相边的两个字母中插入一个“-”（横杠字符）而形成一个字符串，比如单词cake，可以在相连字母间（不同的位置）拖入“-”，而得到如下字符串：
c-a-k-e
ca-k-e
cak-e
c-ak-e
c-ake
ca-ke
c-a-ke

如果给定任一个单词（作为输入），按上面的规则，在其相边的两个字母中插入一个“-”，要计算出所有可能的形成的字符串（输出），程序要怎么写？

function TMainFM.getPower(Base, Mi: Integer): Integer;
var
  i:integer;
begin
  Result:=1;
  for i:=1 to Mi do
    Result:=Result*Base;
end;

function TMainFM.Int64ToBinStr(Source: Int64):string;
begin
  while Source > 0 do
  begin
    if  (Source and $01)=1 then Result :='1'+Result else Result :='0'+ Result;
      Source:=Source SHR 1;
  end;
end;
procedure TMainFM.Button2Click(Sender: TObject);
var
  n,i,j:integer;
  sWord,sNewWord,sTemp:string;
begin
  Memo1.Lines.Clear;
  sWord:='cake';
  n:=Length(sWord);
  for i:=0 to getPower(2,n-1)-1 do
  begin
    sNewWord:=sWord;
    sTemp:='';
    sTemp:=Int64ToBinStr(i);
    while Length(sTemp)<n do
      sTemp:='0'+sTemp;
    for j:=length(sTemp) downto 1 do
      if sTemp[j]='1' then
        Insert('-',sNewWord,j);
    Memo1.Lines.Add(sNewWord);
  end;
end;

其中Memo1为TMemo控件，效率可能不怎么高，但能解决问题就OK了