VPF::оператор In - Форум программистов

uranpro

Дата 17.6.2008, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

Код


const symcharset='!"#$%&''()*+,./:;<>?@[]^_`{}~';
...
var c:char;
begin
if c in symcharset then ...
end;

почему выдает ошибку ? (дело не в символе ' )

--------------------

I want a perfect soul

uranpro

Дата 17.6.2008, 16:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

((((( не вышло

const charset:string='1234567';
var ch:char;
begin
if ch in charset then ...

не работает, ошибка

Это сообщение отредактировал(а) uranpro - 17.6.2008, 16:39

--------------------

I want a perfect soul

Snowy

Дата 17.6.2008, 16:51 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

in ищет в массиве/наборе. А у тебя строка.
Для поиска в строке используй pos
if pos(c, charset) > 0 then ...

Max_Rendel

Дата 18.6.2008, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 24.2.2007
Где: г.Благовещенск

Репутация: нет
Всего: нет

А вот так будет работать:

Код


var
  c: Char;
begin
  c := 'g';

  if c in ['!','"','#','$','%','&',#39,'(',')','*','+',',','.','/',':',';','<','>','?','@','[',']','^','_','`','{','}','~'] then // или лучше как то так ['a'..'z']
    ShowMessage('OK')
  else
    ShowMessage('NO');
end;

pseud

Дата 18.6.2008, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Max_Rendel, +1

uranpro, проще говоря загони свою строку в массив:

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  symcharset = ['!','"','#','$','%','&','''','(',')','*','+',',','.','/',':',';','<','>','?','@','[',']','^','_','`','{','}','~'];
var
  c:char;
begin
  if c in symcharset then;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

uranpro

Дата 18.6.2008, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 571
Регистрация: 7.5.2008
Где: Moscow city

Репутация: нет
Всего: 1

спасиб!

--------------------

I want a perfect soul

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »