Liste anagrammer

Skal den generere rigtige anagrammer eller skal det være alle mulige kombinationer uden skelen til valide stavelser?

OK anagrammer:
  Cykel
  Kycel
  Cekyl

men ikke disse:
  Kcley
  Yeckl (lyder hebraisk, men er i alt fald ikke dansk)

Se evt. dette link: http://wordsmith.org/anagram/

Fandt og rettede dette lidt til (http://www.delphi3000.com/articles/article_3407.asp?SK=). Skal holdes op mod en eller anden stavekontrol

procedure TfrmMain.Anagramize(aList: TStrings; const aInput: string);

  // Internal Recursive routine
  procedure RecursePerm(const aStrA, aStrB : string; const aLength : integer; aStrings : TStrings);
  var
    i: integer;
    A,B: string;
  begin
    // Is built up word the length we require ?
    if length(aStrA) = aLength then
    begin
      // Check if not a duplicate and search dictionary for valid word check.
      if (aStrings.IndexOf(aStrA) = -1) { and MsWordApp.CheckSpelling(StrA) } then
          aStrings.Add(aStrA);
    end;

    for i := 1 to length(aStrB) do
    begin
      // Recursively build all possible permutations of word
      A := aStrB;
      B := aStrA + A[i];
      delete(A,i,1);
      RecursePerm(B,A,aLength,aStrings);
    end;
  end;

begin
  aList.BeginUpdate;
  try
    aList.Clear;
    RecursePerm('',AnsiLowerCase(aInput),length(aInput),aList);
  finally
    aList.EndUpdate;
  end;
end;

kan ikke få det til at virke xD kan ikke lige se hvor den skulle komme med at output :\
og så på linket for du fandt det, tjeckede den i en "ordbog" tænkte på om man så kunne få den til at tjecke i min egen ordbog, hvis jeg fx laver en "ordbog.txt" med en masse i :P

Jeg har kommenteret stavekontrolopslaget ud - burde være let at lave en tilsvarende funktion til egen database. Du skal bare lave noget der ligner MsWordApp.CheckSpelling(StrA) som sikkert returnerer true hvis det er validt. I Linket kan du i øvrigt se hvordan han sætter forbindelsen op til office - og så kan du bruge den database.

Måden data hentes over er meget simpel, her et TListBox:

begin
  Anagramize(ListBox.Items,'Teststreng');

takker ;) så kører den som den skal :P