Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
ВнизКодировка Найти похожие ветки
← →
Quest (2002-01-03 12:06) [2]........
const
OemCharSet = [128..159];//[А..Я] - заглавные буквы Dos
// кодировки без буквы "Ё" - она пересекается с Win кодировкой
....
// s - строка символов
....
S_tmp:=UpperCase(Trim(s));// возвести в верхний регистр
IF (S_tmp[1]) in OemCharSet) Then ... // s - в DOS кодировке
...
// или
IF (Copy(S_tmp,1,1) in OemCharSet) Then ... // s - в DOS кодировке
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c