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

Вниз

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

 
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]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-84715
konstantinov
2003-06-03 23:08
2003.06.26
Что такое WebMoney? И с чем его едят?


1-84147
Rel_
2003-06-11 12:05
2003.06.26
TTreeNode


4-84824
Василий Петрович
2003-04-19 19:36
2003.06.26
Вопрос про едит


6-84504
Savage
2003-04-22 11:12
2003.06.26
Закачка файлика на ftp сервер


1-84120
Melamed
2003-06-10 21:13
2003.06.26
Странная вешь обнаружена в демках