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

made in programmersforum 8

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

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

27th
Окт

Перебор всех доступных значений символов ANSI из слова

Posted by Chas under Delphi, Пост-обзор

как перебрать все доступные значения, например
aaa
aab
aac
aad
и тд
но не для 3х знаков а для n-го количества знаков(указыватся будет в программе) и не только букв перебор но и цыфр, букв, знаков «-» «_» «.»

puporev
Вот пример для трех символов букв русского алфавита и цифр. Вывод результата в текстовый файл. Немного поправите под себя. Главное таблицу символов ANSI изучите, а алгоритм несложный. Вообще это вроде называется в комбинаторике генерация размещений.

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}

function incSymbol(const sym: char): char;

  begin

    case sym of

    '0'..'8','А'..'Ю': incSymbol:=char(Ord(sym)+1);

    '9': incSymbol:='А';

    end;

 end;
function getNext(var comb: string): boolean;

  var i: byte;

  begin

  if comb='ЯЯЯ' then

    Result:=false

  else

    begin

    Result:=true;

    i:=3;

    while (comb='Я') do

      begin

      comb:='0';

      dec(i);

      end;

    comb:=incSymbol(comb);

    end;

  end;

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile;

    com:string;

begin

assignfile(f,'rez.txt');

rewrite(f);

com:='000';

writeln(f,'000');

while getNext(com)=true do

writeln(f,com);

closefile(f);

end;
end.