Тема: генератор
Показать сообщение отдельно
  #2  
Старый 02.02.2012, 09:29
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Код:
var
  C : Char;
begin
  C := Chr(Random(Ord('Я') - Ord('А')) + Ord('А'));
Ответить с цитированием