Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

25th
Мар

Алгоритм перебора всех вариантов расположения букв в Edit

Posted by Chas under Delphi, Исходники

Создаю алгоритм перебора всех вариантов расположения букв в Edit1.text, только не могу домыслить его.

Суть такая, есть Edit1 и в нём текст «1234». Надо вывести в Memo1 все варианты перебора символов, например:
1234
4123
3412
2341
1324
1342
…

Подскажите пожалуйста =) как сделать такой перебор, чтобы все возможные варианты он перебрал. Сам ломаю голову второй день..

Serge_Bliznykov
вот
Combine_src.rar
Combine_EXE.rar

суть решения в рекурсивном вызове.

вот само решение:

implementation

{$R *.dfm}

var

  a1,a2 : string;
(* Переборщик строк     v1.0 by B_SA (Specailly for Nataly & Juliy) *)

procedure TForm5.ShowVariant(S0,S1 : string);

var I :byte;

begin

  if length(S1)=1 then begin Memo1.Lines.Append(S0+S1); Exit end;

  a1 := '';

  a2 :=  copy(S1,I+1,length(S1));

  for i:=1 to length(S1) do ShowVariant(S0+S1,copy(S1,1,I-1)+

                             copy(S1,I+1,length(S1)));

end;
procedure TForm5.Button1Click(Sender: TObject);

begin

  Memo1.Lines.Clear;

  ShowVariant('',Edit1.Text)

end;