Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c