Есть буквы ABC как получить всевозможные варианты записи этих 4 букв
ABC
ACB
BAC
BCA
CAB
CBA
Так как текст может быть и не ABC...
Код:
function faktorial(n: Integer): Integer;
begin;
if((n=0)OR(n=1))
then Result:=1
else Result:=n*faktorial(n-1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
variants, i:integer;
begin
i:=length(edit1.Text); //Длина текста
variants:=faktorial(i); //Получаем макс. значение цикла
for I := 1 to variants do
begin
{тут должен быть код который поменяет местами буквы
так что бы не было одинаковых}
end;
end;