-= Tutorial erweitern =- Sortiermethoden von Buchstaben Tip

[ibp]

auch wenn du nur einen tipp wolltest hier mal ein teil von mir was ich mal gebraucht habe...

Delphi-Quellcode:

procedure Permutation(p, s : String);
var
  i,l: byte;
begin
  l:=length(s);
  if l = 1 then
    Memo1.Lines.Add(p+s) // neue Permutation schreiben
  else
    for i := 1 to l do
       Permutation(p+s[i],copy(s,1,i-1)+copy(s,i+1,l-i));
end;

...
  Permutation('','ABCDEFG'); // aufruf
...