Главная страница
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.016 c
14-84684
Дмитрий К.К.
2003-06-11 06:23
2003.06.26
Именинники 11 июня


1-84290
td
2003-06-05 19:18
2003.06.26
программно присвоить обработку события


14-84726
neuro
2003-06-05 19:20
2003.06.26
Tcl/Tk, Awk...


8-84469
sergey2
2003-03-09 08:12
2003.06.26
Как выделить конкретный цвет?


1-84378
VISA
2003-06-09 11:54
2003.06.26
Событие при перемещении формы