Главная страница
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
14-1098869043
Drakon
2004-10-27 13:24
2004.11.14
Запуск программ для Linux под Windows


1-1099078938
Matrex
2004-10-29 23:42
2004.11.14
Экзотика - компонент VirtualTreeview


1-1099116369
SSSdd
2004-10-30 10:06
2004.11.14
Как подсчитать время прошедшее между двумя датами?


14-1098339536
Гость
2004-10-21 10:18
2004.11.14
1C -8.0 против Delphi+FIBPlus+FB1.5


9-1089346108
dimodim
2004-07-09 08:08
2004.11.14
В какой формат моделей необходимо экспортировать файлы из 3д макс