| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проверка строки на символы

Петр ©   (2008-02-09 22:37:00) 

помогите не могу понять как правильно сделать проверку строки.
s:string;
т.е. мне нужно чтобы проверялось
если в строке присутствуют одни из символов "t,y,k,g,f,.,=,9,0,(,)"
то result = true, а если в строке содержится хоть один любой другой символ то result false.
буду рад помощи!

---

Петр   (2008-02-09 23:34:00) [1]

благодарю!

---

Zeqfreed   (2008-02-09 23:28:00) [2]

> turbouser ©   (09.02.08 23:26) [6]

Не стоит искать подводные камни там, где все лежит на поверхности :)
Хотя, если бы вы аргументированно ответили сразу, то пост воспринимался бы гораздо лучше.

---

DVM   (2008-02-09 23:27:00) [3]

> j:= length(Str);
> for i := 1 to j do

Компилятор сам догадается.

---

turbouser   (2008-02-09 23:26:00) [4]

> Zeqfreed ©   (09.02.08 23:10) [3]


> trubin ©   (09.02.08 23:16) [4]

Незачем выбегать из процедуры там где всего-навсего надо выйти из цикла.
Если строить код логически верно с самого начала, то багов будет меньше и
те ошибки, которые появятся, легче будет отследить.

---

trubin   (2008-02-09 23:21:00) [5]

разве что:

j:= length(Str);
for i := 1 to j do

---

trubin   (2008-02-09 23:16:00) [6]

> turbouser ©   (09.02.08 22:57) [2]


Чем не нравиться [1]  ?

---

Zeqfreed   (2008-02-09 23:10:00) [7]

> turbouser ©   (09.02.08 22:57) [2]

Хотя бы маленький комментарий, а то могут неправильно понять. Ага?

---

turbouser   (2008-02-09 22:57:00) [8]

> Zeqfreed ©   (09.02.08 22:45) [1]

const
  validChars = ['1'..'9','w','h','a','t','E','v','e','r'];
var
  i : Integer;
begin
Result := true;
  for i := 1 to length(Str) do begin
      if not (Str[i] in validChars) then begin
          Result := false;
          Break;
      end;
  end;
end;

---

Zeqfreed   (2008-02-09 22:45:00) [9]

const
   validChars = ['1'..'9','w','h','a','t','E','v','e','r'];
var
   i : Integer;
begin
   for i := 1 to length(Str) do begin
       if not (Str[i] in validChars) then begin
           Result := false;
           Exit;
       end;
   end;

   Result := true;
end;

---

Наверх