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

made in programmersforum 8

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

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

11th
Дек

Генерация строк с определенного места

Posted by micher under Delphi

У меня есть код который последовательно генерирует строку, но мне понадобилось сделать так, чтобы можно было продолжить с определённого места(строки). Какие будут предложения?

BDA

В строке start задается последний с генерированный пароль, либо символы * («пустые» символы).



program Project1;

{$APPTYPE CONSOLE}
uses

  SysUtils, windows;
const

  line = 'qwertyuioplkjhgfdsazxcvbnm0123456789';
var

  start: string;
function KeyPressed: Boolean;

var

  lpNumberOfEvents: DWORD;

  lpBuffer: TInputRecord;

  lpNumberOfEventsRead: DWORD;

  nStdHandle: THandle;

begin

  Result := false;

  // get the console handle

  nStdHandle := GetStdHandle(STD_INPUT_HANDLE);

  lpNumberOfEvents := 0;

  // get the number of events

  GetNumberOfConsoleInputEvents(nStdHandle, lpNumberOfEvents);

  if lpNumberOfEvents  0 then

  begin

    // retrieve the event

    PeekConsoleInput(nStdHandle, lpBuffer, 1, lpNumberOfEventsRead);

    if lpNumberOfEventsRead  0 then

    begin

      if lpBuffer.EventType = KEY_EVENT then // is a Keyboard event?

      begin

        if lpBuffer.Event.KeyEvent.bKeyDown then // the key was pressed?

          Result := true

        else

          FlushConsoleInputBuffer(nStdHandle); // flush the buffer

      end

      else

        FlushConsoleInputBuffer(nStdHandle); // flush the buffer

    end;

  end;

end;
procedure generate(S: string; n: integer; var start: string);

var

  i, k: integer;

begin

  if KeyPressed then

    exit;

  k := pos(start[n], line);

  if k < 1 then

    k := 1;

  for i := k to Length(line) do

  begin

    S[n] := line;

    start[n] := '*';

    if n = 1 then

      writeln(S)

    else

      generate(S, n - 1, start);

  end;

end;
begin

  start := '12321';

  generate('*****', Length('*****'), start);

  readln;

end.