Форум: "Основная";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];
Внизтип символа Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c