Проверка строки

← →
TsvIlya (2003-06-24 15:18) [0]

Привет всем!
Можно ли, не используя свой собственный цикл, проверить содержит ли строка только, скажем, такие символы ["a" .. "z", "A" .. "Z"] или нет?
Если можно, то каким образом?

← →
Palladin © (2003-06-24 15:21) [1]

можно у пользователя спросить :)

← →
Семен Сорокин © (2003-06-24 15:28) [2]

свой собственный цикл
это как? :))

← →
TsvIlya (2003-06-24 15:29) [3]

> Palladin © (24.06.03 15:21)

Помоему не смешно... :) А если не шутя?

← →
TsvIlya (2003-06-24 15:30) [4]

> Семен Сорокин © (24.06.03 15:28)

Ну т.е. использовать встроенную функцию...

← →
Palladin © (2003-06-24 15:31) [5]

нельзя
вот напишеш функцию

function IsStringContentIn(s,c:string):boolean;
var
i:integer;
begin
result:=true;
for i:=0 to length(s) do
if pos(s[i],c)=0 then
begin
result:=false;
break;
end;
end;

вот...
теперь можешь не использовать свой цикл, а использовать мой цикл

← →
icWasya © (2003-06-24 15:35) [6]

совсем без цикла нельзя но

const Alpha: set of char=["a" .. "z", "A" .. "Z"];

function AlphaTest( const S: String)Boolean; var i:integer; begin Result:=false; for i:=1 to Length(S) do if not(S[i] in Alpha then Exit; Result:=true; end;

← →
Семен Сорокин © (2003-06-24 15:36) [7]

2Palladin
а я хотел свой цикл предложить, ты меня опередил :))

← →
Palladin © (2003-06-24 15:41) [8]

предлагай :)
пометь только в начале
// (C) by Семен Сорокин

а я свой перепишу
function IsStringContentIn(s,c:string):boolean; // (C) by Palladin var i:integer; begin result:=true; for i:=0 to length(s) do if pos(s[i],c)=0 then begin result:=false; break; end; end;

← →
TsvIlya (2003-06-24 15:53) [10]

Всем спасибо!

for i:= 1 to ...

Проверка строки Найти похожие ветки