Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.03.28;
Скачать: CL | DM;

Вниз

преобразование String[1] в Char.   Найти похожие ветки 

 
froll ©   (2010-01-22 14:26) [0]

Здравствуйте!

Нужно проверить строку на то, чтобы она начиналась только с допустимых символов.

Допустимые символы описаны как

TLetters = Set of "A".."B";

Проверка:

Var
 Str: string[1];
 Ch: Char;
 Letters: TLetters;

Str := LeftStr(MyString, 1);
Ch := Str;
if (not (Ch in Letters)) then
       begin
         MyString := Copy(MyString, 2, Length(MyString) - 1);
       end

Вобщем, на строчке Ch=Str компилятор выдает ошибку Invalid Typecast..

Жутко торможу как решить проблему... Подскажите по-та. Заранее благодарствую.


 
{RASkov} ©   (2010-01-22 14:34) [1]

if str[1] in letters then


 
Anatoly Podgoretsky ©   (2010-01-22 14:38) [2]

> froll  (22.01.2010 14:26:00)  [0]

String[1] и так Char, нечего преобразовывать.


 
Anatoly Podgoretsky ©   (2010-01-22 14:39) [3]

А вот это Ch := Str; не str[1]


 
Дмитрий С ©   (2010-01-23 20:03) [4]

if ((Length(Str)>1) and (Str[1] in ["a".."z"])) then


 
Плохиш ©   (2010-01-24 02:05) [5]


> Дмитрий С ©   (23.01.10 20:03) [4]
>
> if ((Length(Str)>1) and (Str[1] in ["a".."z"])) then

Бессмысленный код. Почему, смотри определения типов в [0].


 
{RASkov} ©   (2010-01-24 11:29) [6]

> смотри определения типов в [0].

для моего [1] Str - это не из [0], т.е. не String[1] а просто String...
Правильнее было бы написать: if not (MyString[1] in letters) then
или более правильно как в [4] т.е: if (Length(MyString)>0) and not (MyString[1] in letters) then
Вообще как Анатолий сказал Str: String; и затем Str[n] - т.е. n-ый символ в строке Str и есть Char...
Другими словами не нужно его гонять между типами, как это сделано в [0]...



Страницы: 1 вся ветка

Текущий архив: 2010.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
1-1245137641
Vitaliy_____
2009-06-16 11:34
2010.03.28
OpenDialog TypeChange и MultiSelect


15-1263146426
Petr V. Abramov
2010-01-10 21:00
2010.03.28
RBC празднует :)


15-1262467825
Юрий
2010-01-03 00:30
2010.03.28
С днем рождения ! 3 января 2010 воскресенье


2-1264422307
Anonim
2010-01-25 15:25
2010.03.28
доступ к списку Tlist


2-1264752952
s_t_d
2010-01-29 11:15
2010.03.28
Последовательность, орг. переход на новую страницу