Скачать: CL | DM;

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

← →
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]

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

---

← →
IrBisoff ©   (2004-05-15 19:11) [5]

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


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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c