Зависание при выполнении программы

[Танкист]

спасибо!
а как сделать то же самое, только в место цифр были буквы? только, если можно, без заумных кодов

[vovk]

Если внятно объясните что для вас значит

только в место цифр были буквы

то вполне смогу рассказать, только не уверен что для вас значит "заумный код"

[Танкист]

что бы было всё простенько в коде и объяснение на пальцах
то же самое что и в пред идущем коде, только что бы генерация была не из чисел, а из букв

[vovk]

так попробую перевести , вы хотите чтобы в мемо добавлялись не цифры а буквы?
Если да то в каком диапазоне и в какой последовательности?

[Танкист]

так они должны рандомно добавляться, это, ведь, что то на подобие генератора паролей, только попроще

[vovk]

ндяя подробно объяснили.. ну да ладно покажу как понял, реализаций много,инапример так

const abc_ = 'abcdefghijklmnopqrstuvwxyz';
var
f: integer;
begin

f:=strtoint(edit1.Text) ; 
memo1.lines.clear;

while f>memo1.lines.count do
begin
memo1.Lines.Add(abc_[random( length(abc_) - 1 )]);
end;

[Танкист]

спасибо! но не могли бы вы объяснить, как сделать, что бы строка состояла не из 1-ого символа, а из 3-х допустим?
и эту строку можно по подробней? что есть что

 memo1.Lines.Add(abc_[random( length(abc_) - 1 )]);

abc-константа
random-он и есть рандом
а вот дальше неочень понятно, что означает запись "длинна=константе -1"?

[vovk]

memo1.Lines.Add(abc_[ random( length(abc_) - 1 ) ]) // добавить линию в мемо
abc_[ random( length(abc_) - 1 ) ]) //обращение к одному символу строковой константы по индексу
random( length(abc_) - 1 ) // случайное число в диапазоне от 0 до length(abc_) - 1 _ (длинны строковой константы -1)
-1 потому, что в отличии от строки string строковая константа,как и динамические массивы начинается с 0, и значит номер последнего символа будет длинна константы -1
Допустим для константы из 8 символов номер последнего символа будет 7

можно группировать символы, пример

memo1.Lines.Add(abc_[random( length(abc_) - 1 )]+abc_[random( length(abc_) - 1 )]+abc_[random( length(abc_) - 1 )]);

тут 3 символа,
можно в цикле собирать заранее указав количество.