Регистр символа

← →
Spooky (2002-08-13 14:28) [0]

Кто-нибудь знает как определить регистр символа (т.е. маленькая это буква или заглавная)?

Буду благодарна за ответ.
(очень нужно)

← →
RV (2002-08-13 14:31) [1]

if UpCase(a)=a then заглавная

← →
MBo (2002-08-13 14:32) [2]

if achar in ["A".."Z"] then заглавная

← →
Skier (2002-08-13 14:36) [3]

>Spooky

IsUpperCase(const AChar : Char) : Boolean; begin Result := (AChar in ["A".."Z"]) or (AChar in ["А".."Я"]) end;

← →
Spooky (2002-08-13 14:57) [4]

Спасибо, это мне пригодится.
А нет универсального способа, без привязки к языку?

← →
Skier (2002-08-13 15:03) [5]

>Spooky

Можно следить за состoянием Shift и Caps Lock...

← →
MBo (2002-08-13 15:03) [6]

RV универсальный привел, только AnsiUpperCase нужно

← →
Spooky (2002-08-13 15:08) [7]

На счет
if UpCase(a)=a then заглавная
я что-то сразу не въехала.

Спасибо.

← →
Spooky (2002-08-13 16:10) [8]

А вы знаете, "if UpCase(a)=a then заглавная" для русских букв не работает!!!

← →
Skier (2002-08-13 16:13) [9]

>Spooky

AnsiUpperCase