Ergebnis der Suchanfrage

• Forum: Library: Algorithmen

  Permutation/Anagram eines Strings erzeugen

    Delphi
    by 3_of_8, 23. Jul 2006
  Die folgende Funktion erzeugt ein Anagramm aus einem übergebenen String.
  
  Es ist darauf zu achten, dass vor ihrem Aufruf einmal Randomize; aufgerufen wurde.
  
  
  function MakeAnagram(str: string): string;
  var I, n, r: Integer;
  c: Char;
  begin
  result:=str;