Последовательная генерация строк начиная с определённой точки

Posted by Chas under Delphi

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

BDA
Программа рекурсивно спускается и редактирует строчку. Самым простым способом будет запомнить стек вызовов, но я не знаю, как это сделать.
Нужно модифицировать саму процедуру, т.к. нужно «достроить» конец строки.

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[i]; start[n] := '*'; if n = 1 then writeln(S) else generate(S, n - 1, start); end; end; begin start := '12321'; generate('*****', Length('*****'), start); readln; end.[/code] В строке start задается последний сгенерированный пароль, либо символы * ("пустые" символы). Вроде работает тема на форуме

Похожие статьи

• Рамки для страниц отчетов
• Функция pos, как искать далее?
• Выполнение задач на Assembler при нажатии на клавишу
• Как правильно делать автоматическое создание столбцов с картинками в виде таблицы
• Подсчет числа слов в строке по заданному условию
• Работа со строками, замена символов
• Как из строки получить время?
• Посчитать кол-во восклицательных знаков в тексте
• Универсальная функция для получения из строки определённого фрагмента
• Посчитать количество знаков в edit