Как организовать работу case

← →
ambhtr (2007-05-18 15:08) [0]

Из строки выбираются поочередно символы и должны проверятся на разрешенные символы. Пытаюсь отработать это таким кодом:
var
valChar : Char;
...

for I:=1 to lenS do
begin
valChar := Char(copy(S,I,1));
case valChar of
"0".."9",
"a".."z",
"A".."Z",
"|",";" : ; //Допустимые символы.
else
lst_ErrTXT.Add("В файле " + nmFile +
" на линии "+ IntToStr(nnRec) +
" в колонке под номером " + IntToStr(I) +
" имеется недопустимый символ");
end;

Но не получается в строке:
valChar := Char(copy(S,I,1));
перевести string -> Char.
Или если можно проверять отдельный строковые символы по другому, подскажите, пожалуйста.

← →
Сергей М. © (2007-05-18 15:10) [1]

valChar := S[I];

← →
ambhtr (2007-05-18 15:40) [2]

Спасибо :о)! Все сработало. Только теперь другая "проблема":
В "допустимые" символы надо добавить и русские буквы.
case valChar of
"0".."9",
"a".."z",
"A".."Z",
"а".."я",
"А".."Я",

А текст ДОСовский, и кодировка ДОСовская. Как сделать, чтобы учитывать русские "ДОСовские" буквы?

← →
clickmaker © (2007-05-18 15:46) [3]

> Как сделать, чтобы учитывать русские "ДОСовские" буквы?

OemToChar()

← →
Сергей М. © (2007-05-18 15:48) [4]

Тогда сначала приведи оригинальную кодировку символов с строке к ANSI-стандарту:

OEMToChar(PChar(s), PChar(s));

А далее все точно так же как сейчас

← →
ambhtr (2007-05-18 16:58) [5]

Вставил строчку:
OEMToChar(PChar(s), PChar(s));
но теперь на какой-то строчке выдает ошибку:
"Access violation at address 77D5ED16 in module "user32.dll". Write of address ..."
И никак не могу пока ни выловить на какой линии, ни почему появляется эта ошибка.
Подскажите, что может быть.

← →
clickmaker © (2007-05-18 16:59) [6]

терзают смутные сомнения, а выделил ли ты память под s?

← →
ambhtr (2007-05-18 17:06) [7]

Спасибо всем! Удалось выловить пустую строку на которой и происходила ошибка.
Поставил:
if S<>"" then OEMToChar(PChar(S), PChar(S));
и все пошло.
Еще раз всем СПАСИБО!!! :о)))

if Char in [..] then else

> ambhtr (18.05.07 17:06) [7]

Про это много писали большевики.

Как организовать работу case Найти похожие ветки