Главная страница
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.022 c
1-84069
Exteris
2003-06-10 09:19
2003.06.26
ScrollBox


1-84431
dfg
2003-06-09 21:21
2003.06.26
Можно ли вывести содержимое Tchart на предосмотр перед печатью?


3-83986
DBDev
2003-05-29 16:55
2003.06.26
ПОМОГИТЕ грамотно организовать поиск на базе SP?


14-84757
Aga
2003-06-03 20:24
2003.06.26
Delphi 8.0


1-84149
Bosso
2003-06-11 09:57
2003.06.26
Как бороть баг с 300-ми кнопками?