Привет. Сегодня выкладываю исходник первой версии удачной на мой взгляд программы mr.gen.

Суть программы: мы вводим определённую маску, программа генерирует текстовый файл с нужными нам комбинациями символов. Чем программма уникальна? Мы можем задать все возможные варианты каждого символа, а программа выдаст все возможные варианты строки с символами во всех возможных их вариантах.

Очень много направлений, в которых программу можно доделать, – mr.gen with symbol filter, например. При использовании кода указываем автора, при копировании поста указываем источник.

Теперь кратко суть программы: mr.gen использует рекурсию:

procedure rec(f:string;n,len:integer);
var
  i:integer;
  buf:string;
begin
  buf:=marr[n];
  if n=len-1 then begin
    for i:=1 to Length(buf) do
      AddPARR(f+buf[i]);
    Exit;
  end;
  for i:=1 to Length(buf) do
    rec(f+buf[i],n+1,len);
end;

Процедура AddPARR уже записывает в файл конечный результат, сама процедура rec формирует определённый символ строки и добавляет его к ней. После добавления последнего символа как раз и дописывает в файл результата.

Скачать исходник mr.gen v0.

С помощью программы ЛовиВКонтакте можно скачивать видео и музыку из социальной сети вконтакте. Вконтакте видео и аудио, размещённое и разрешённое к просмотру пользователями.