Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

тип символа   Найти похожие ветки 

 
vvv ©   (2004-10-28 11:35) [0]

Приветствую!
Подскажите пожайлуста как определить тип символа (буква или цифра),т.е. есть ли Функции определения типа символов.
Ведь в тупую описывать все символы клавы не хочется.
Спосибо.


 
Pentium133 ©   (2004-10-28 11:37) [1]

Попробуй сделать StrToInt.
Если возникнет исключение значит буква.


 
begin...end ©   (2004-10-28 11:37) [2]

Определяем код символа (функция Ord) и проверяем, есть ли код в множестве кодов цифр, например.


 
NewDelpher ©   (2004-10-28 11:37) [3]

if C in ["0".."9"] then цифра else буква


 
begin...end ©   (2004-10-28 11:41) [4]

var
 Ch: Char;

begin
 if Ord(Ch) in [80..89] then
   // Это цифра
 else
   // Это не цифра, но и необязательно буква
end.


Лучше, действительно, [3].


 
vvv ©   (2004-10-28 12:25) [5]

Спосибо кто ответил.
Но еще раз: есть ли Функции определения типа символов.
Например в PHP есть

ctype_digit - проверяет наличие цифр.
Описание
bool ctype_digit (string text)
Возвращает TRUE, если каждый символ в text является десятеричной цифрой, FALSE в ином случае.


 
Sandman25 ©   (2004-10-28 12:31) [6]

[5] vvv ©   (28.10.04 12:25)

TCharType = (ctDigit, ctDelimiter, ctEnglishLetter, ctUnknown);

function GetCharType(const C: Char): TCharType;
begin
 case C of
  "0".."9":
    Result := ctDigit;
  "a".."z","A".."Z":
    Result := ctEnglishLetter;
  " ",".",",",":":
    Result := ctDelimiter;
 else
   Result := ctUnknown;
 end;
end;


 
MBo ©   (2004-10-28 12:40) [7]

IsCharAlpha(Numeric) - но использовать это ИМХО бессмыссленно, in быстрее.


 
Sandman25 ©   (2004-10-28 12:42) [8]

[7] MBo ©   (28.10.04 12:40)

Зато структурнее.



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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.05 c
6-1094132569
sniknik
2004-09-02 17:42
2004.11.14
UDP протокол на базе Мелкософтского клиента


4-1096898356
Delphis
2004-10-04 17:59
2004.11.14
Смена обоев


1-1099026696
BillyJeans
2004-10-29 09:11
2004.11.14
PopupMenu у Edit ов...


4-1097138441
Arnold
2004-10-07 12:40
2004.11.14
Вопрос по сообщениям


1-1099065347
проходящий мимо
2004-10-29 19:55
2004.11.14
удаление файла