Сравнение символов

[DeEgo]

Дан алфавит и какое то слово. Нужно проверить не содержит ли это слово "левых" символов, т.е. символов не из этого алфавита..

переменные объявлены как символьные константы символьного типа Alph, text1: string;

for i := 1 to lend do //lend- длина слова
begin
for k := 1 to dl do //dl- длина алфавита
begin
if text1[i]<>alph[k] then
begin
application.MessageBox('Корректно введите текст!','Ошибка', MB_OK);
exit;
end;
end;
end;

самое интересное что если знак поменять на равно то программа работает правильно только наоборот..=) помогите пожалуйста а то я уже замучился..

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[fenix-elite]

Не проще ли взять числовые значение символов и проверять лежит ли текущий символ в интервале?

[DeEgo]

возможно и проще.. а как это сделать?=))

[Kotofff]

Если твой алфавит похож на некоторую последовательность, то можно так :

  s := 'строка для проверки';
  a:=0;
  for i:= 1 to Length(s) do 
     if not (s[i] in ['А'..'Я','0'..'9']) then Inc(a);
  if a > 0 then ShowMessage('В строке есть недопустимые символы !');

Надеюсь направление понятно ...

Еще:
Как вариант ...

const
  alf:array[1..3] of char = ('a','b','c');
...
...
...
  for i:= 1 to Length(s) do if not (s[i] in [alf[1]..alf[3]]) then

[fenix-elite]

DeEgo, так как написал Kotofff, так даже проще будет.

[evg_m]

сто неправильно

or i := 1 to lend do //lend- длина слова
begin
for k := 1 to dl do //dl- длина алфавита
begin
if text1[i]<>alph[k] then  // сравниваем символ с первым в списке ероятнее всего он не такой НО у нас ЕСТЬ еще другие 
begin // а мы сразу БА-БАХ
application.MessageBox('Корректно введите текст!','Ошибка', MB_OK);
exit;
end;
end;
end;

и как можно исправить

or i := 1 to lend do //lend- длина слова
begin
r:=0;
for k := 1 to dl do //dl- длина алфавита
begin
if text1[i]=alph[k] then r:=к+!1;//считаем сколько мы нашли таких символов в нашем алфавите 
end; // в конце цикла r=0 таких нет r>0 есть 
// и вот теперь 
if r=0 then begin
application.MessageBox('Корректно введите текст!','Ошибка', MB_OK);
exit;
end;
end;