Генерация строк

[bakanaev]

Имеется строка вида sdgsdg7832@(@, длина строки может меняться, как и символы в ней.
Нужно сгенерировать ВСЕ варианты строк размером 4 (может меняться) знака которые должны содержать данные символы. Как пример :

строка 123456
размер 7
На выходе
1111111
...........
6666666

В голову пока ни чего не приходит. Сложность в том что все может меняться, т.е нужен универсальный алгоритм. Может кто-то уже делал подобное ?

[Kix.IV]

Для n=4:

for i:=1 to length(s) do
 for i2:=1 to length(s) do
  for i3:=1 to length(s) do
   for i4:=1 to length(s) do
     Add(s[i],s[i2],s[i3],s[i4]);

Теперь просто надо переделать для любого n.

[bakanaev]

Теперь просто надо переделать для любого n.

Вот как раз это я и не могу придумать))) Но спасибо

[Kix.IV]

Edit1 - исходное слово
Edit2 - кол-во символов в слове
Memo1 - поле вывода

var
  n,c,g,g2: integer;
  i: array of integer;
  s,s2: string;
begin
  n := StrToInt(Edit2.Text);
  s := Edit1.Text;
  c := Length(s);
  setlength(i,n);
  for g := 0 to n-1 do i[g] := 1;

  repeat
    s2 := '';
    for g2 := 0 to n-1 do
     s2 := s2 + s[i[g2]];
    Memo1.Lines.Add(s2);

    g := 0;
    while i[g] = c do inc(g);
    if g>0 then
      for g2 := g-1 downto 0 do i[g2] := 1;
    inc(i[g]);
  until i[n-1] = c;
end;

Работоспособность не проверял. Первое, что в голову пришло, то и написал.

[Аватар]

Рекурсивный способ. Чем больше LenIn и особенно LenOut, тем дохлей. Впрочем как и любым другим способом

var Etalon: String;
    LenIn,LenOut: Integer;

procedure TForm1.InitText(PosOut: Integer; Text: String);
var s: String;
    i: Integer;
begin
  for i:=1 to LenIn do begin
    s:=Text+Etalon[i];
    if PosOut=LenOut then Memo1.Lines.Add(s)
                     else InitText(PosOut+1,s);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Etalon:='sdgsdg7832@(@';
  LenIn:=Length(Etalon);
  LenOut:=4;
  InitText(1,'');
end;