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

← →
Петр (2008-02-09 22:37) [0]

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

← →
Zeqfreed © (2008-02-09 22:45) [1]

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;

← →
turbouser © (2008-02-09 22:57) [2]

> 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 23:10) [3]

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

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

← →
trubin © (2008-02-09 23:16) [4]

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

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

← →
trubin © (2008-02-09 23:21) [5]

разве что:

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

← →
turbouser © (2008-02-09 23:26) [6]

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

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

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

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

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

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

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

← →
Петр (2008-02-09 23:34) [9]

благодарю!

проверка строки на символы Найти похожие ветки