Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 кодировке




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.019 c
4-66388           YUS                   2001-11-18 19:07  2002.01.21  
SetWindowsHookEx


1-66283           L_Coder               2002-01-04 16:45  2002.01.21  
inline()


6-66320           Yuraz                 2001-10-27 16:01  2002.01.21  
Люди, подскажите, как получить IP адрес веб сайта!!!


1-66265           Notify                2002-01-03 19:54  2002.01.21  
Возможно ли каким либо образом передать курсор из VisualFoxPro в Delphi не копируя его на винт?


1-66267           hacker                2002-01-01 21:48  2002.01.21  
Обработка событий в дмнамически создаваемых компонентах