Сообщество Чайников

Вопрос

Как сделать генератор случайных чисел формата XXXXX-XXXXX-XXXXX-XXXXX-XXXXX, чтобы числа состояли минимум из 5-ти знаков?

Ответ

На входе: Length — длина
На выходе: строка из цифр длины Length

function GenerateRandomNumber(Length : byte) : string;
var
Cnt1 : byte;
GenStr : string;
begin
GenStr := '';
Randomize;
for Cnt1 := 1 to Length do GenStr := GenStr + IntToStr(Random(10));
Result := GenStr;
end;

Конечно, не особенно быстрый алгоритм… Как сгенерировать последовательность по нужному шаблону:

• Можно задать длину целиком шаблона, и затем разбить строку на подстроки.
• Можно несколько раз (5 раз) генерить строки.