Регистр

← →
Torin (2004-05-15 18:14) [0]

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

← →
begin...end © (2004-05-15 18:19) [1]

ИМХО, нету такой. Однако её легко можно написать самому.

← →
jack128 © (2004-05-15 18:20) [2]

Result := UpperCase(MyChar)[1] = MyChar;

← →
Palladin © (2004-05-15 18:28) [3]

Лучше AnsiUpperCase

← →
Torin (2004-05-15 18:55) [4]

Жаль, самому написать немудрено, но хотелось чтобы работало быстро...

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

if AnsiUpperCase(Mychar)[1] <> Mychar[1] then Result := LowerCase else Result := UpperCase;

По-моему, работает даже очень быстро. =)

Регистр Найти похожие ветки