Алгоритм всех вариантов текста

[Nockola]

Всем привет.

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

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

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

Вот что я пытался сделать, но что-то где-то не то.

var
s:string;   i1:integer;   a,b:char;
begin
memo1.Clear;
s:=Edit1.Text;

for i1 := 1 to 4 do
        begin
          a:=s[i1]; b:=s[i1+1];
          if i1>1 then
          if i1<>4 then begin s[i1]:=b; s[i1+1]:=a; end else begin a:=s[i1]; b:=s[1]; s[i1]:=b; s[1]:=a; end;
          Memo1.Lines.Add(s);
        end;
    end;
end;

[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[i],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;

[Nockola]

Сообщение от Serge_Bliznykov

вот
Вложение 65794
Вложение 65795

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

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

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[i],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;

Вау, спасибо большое

[Serge_Bliznykov]

На здоровье.

Если бы Вы догадались воспользоваться поиском по форуму, то легко нашли не только мой пример (я его уже неоднократно на форуме выкладывал), но и другие аналогичные примеры. Есть разные алгоритмы для решения данной задачи...