Arsip: Permutasi Kata

procedure TForm1.Button1Click(Sender: TObject);
var
S        : TStrings;
K, Kata  : string;
procedure Permutasi(var A: string; B: string);
var
J  : Word;
C, D : string;
begin
if Length(B) = 0 then
S.Add(A);
else
for J := 1 to Length(B) do begin
C := B;
D := A + C[J];
Delete(C, J, 1);
Permutasi(D, C);
end;
end;
begin
S := TStringList.Create;
try
Kata := Edit1.Text;
Permutasi(K, Kata);
ListBox1.Items.Text := S.Text;
finally
S.Free;
end;
end;