Рандом символов

[Xandr]

Подскажите пожалуйста как осуществить выбор символа латинского алфавита, и так же регистр выбранного символа. Спасибо.

[Stilet]

Var c:char
c:=char(random(255)+31) если не ошибаюсь

[Xandr]

Он генерирует все символы, мне нужно только вехний и нижний регистр латанских букв.

[mihali4]

ShowMessage('A=>'+IntToStr(Ord('A') ));
ShowMessage('Z=>'+IntToStr(Ord('Z') ));
ShowMessage('a=>'+IntToStr(Ord('a') ));
ShowMessage('z=>'+IntToStr(Ord('z') ));
Дальше сами (тихо надеюсь)...

[Xandr]

Извини не понял, у меня генерирует и !,}[в/..., а это к чему

Сообщение от mihali4

ShowMessage('A=>'+IntToStr(Ord('A') ));
ShowMessage('Z=>'+IntToStr(Ord('Z') ));
ShowMessage('a=>'+IntToStr(Ord('a') ));
ShowMessage('z=>'+IntToStr(Ord('z') ));
Дальше сами (тихо надеюсь)...

[Stilet]

Пробуй так:

if random(2)=0 then
caption:=chr(random(25)+65)
else
caption:=chr(random(25)+97);

[puporev]

Любой символ ПК можно определить по его коду.
Коды нижнего регистра латинских букв от 97 до 122.
Верхний ркгистр - от 65 до 90. Выделить нужные символы откуда-нибудь можно используя множества.
Почитайте какую-нибудь книжку.

[Xandr]

puporev, спасибо за четкое разъеснение.

[mihali4]

Сообщение от Xandr

Извини не понял, у меня генерирует и !,}[в/..., а это к чему

А это к определению крайних значений кодов латинских букливиц...