Функция проверки наличия в строке посторонних символов,промогите!

← →
Yuraz (2003-06-13 21:33) [0]

Уважаемые мастера! Помогите, проблема тут для меня оказалась, найти в строке постороний символ, и если этот символ имеется, то в Result 1, а если нет, то Result возвращает ноль, пишу функцию (моожет быть сейчас имеются синтакс. ошибки)
function test(slovo: string): integer; var i,j:integer; const Letters:string "abcdefg"; begin for i:=1 to length(slovo) do // перебрали строку begin for j:=1 to length(Letters) do // перебрали массив букв begin тут если не встречается символ из Letters даже в первом проходе, то сразу в Result заносим 1, и прекращаем цикл. end; end; end;
В общем так творю, и не могу добится нужного результата....

← →
MsGuns (2003-06-13 21:43) [1]

А зачем цикл по j ? Что, нельзя просто создать массив "запрещенных" символов, а затем просто

if slovo[i] in ArrayDisabledSymbols then ...

← →
Forester (2003-06-13 21:54) [2]

function test(slovo: string): integer;

var
j:integer;

const
Letters:string = "abcdefg";

begin
result:=0;
for j:=1 to Length(Letters) do
if pos(Letters[j], slovo)>0 then
begin
result:=1;
break;
end;
end;

Запрещенные символы можно также определить при помощи множества.

← →
Vulko (2003-06-14 05:00) [3]

> можно также определить при помощи множества

нужно

← →
Yuraz (2003-06-15 18:39) [4]

Спасибо за помощь!!!

Функция проверки наличия в строке посторонних символов,промогите! Найти похожие ветки