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

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

← →
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;


---

← →
Anatoly Podgoretsky ©   (2003-06-24 15:52) [9]

Palladin © (24.06.03 15:41)
Перепиши еще раз

---

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

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

---

← →
Sandman25 ©   (2003-06-24 16:47) [11]

for i:= 1 to ...

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.009 c