mr.gen v0: исходники

Привет. Сегодня выкладываю исходник первой версии удачной на мой взгляд программы 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.

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

17 ответов к «mr.gen v0: исходники»

  1. Хорошая вещь мне кажется, нужно будет попробывать)
    Мне кажется когда пишешь описание сайта, может прегодиться для полавтоматического прогона например

  2. Воо классная программка, можно ее чуть чуть переделать и будет то, что я давно искал… Щас пойду пытаться) Согласен с Аленой, можно сделать свой рерайтер)

  3. Недавно заценил LVCL — минималистическую альтернативу VCL ( http://bouchez.info/lvcl.html ).
    Гораздо понятнее всяких KOL, но сложный интерфейс не сделать: есть только Button, Label, Edit, Checkbox, Memo — и на этом всё. А для таких вот программулек — идеален (в 40-50 Кбайт можно уложиться). Код останется совместимым с VCL! Нужно только его папку внести в список Search path (где модули ищутся). Может и неактуально, но чисто из любви к искусству стоило бы попробовать.

  4. а можно его модернизировать, то есть сделать много ядерным, и что бы количество оперативки увеличь

Добавить комментарий для crystalbit Отменить ответ

Ваш адрес email не будет опубликован. Обязательные поля помечены *