Главная страница
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.014 c
2-1264342999
Делфиец
2010-01-24 17:23
2010.03.28
Как разом очистить всю таблицу


15-1262879478
Kerk
2010-01-07 18:51
2010.03.28
Проект минздравсоцразвития РФ


4-1227617004
dmitry_12_08_73
2008-11-25 15:43
2010.03.28
Определение самого верхнего окна в выделенной области экрана


2-1264184513
Alexey
2010-01-22 21:21
2010.03.28
ID3 теги и кодировка


15-1263202280
Игорь
2010-01-11 12:31
2010.03.28
Драйвер под Windows 7