Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: 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 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
7-20327
default
2003-04-25 15:01
2003.07.07
Об окнах...


3-20014
Kinda
2003-06-15 13:22
2003.07.07
Создание запроса.


1-20124
Nesh Briges
2003-06-25 00:17
2003.07.07
Цвет в >>HEX


8-20170
Intell
2003-03-08 19:03
2003.07.07
Как сделать Осцилоскоп, как в Winamp`е?


14-20288
sapsi
2003-06-20 11:56
2003.07.07
Почему профессия программиста не считается вредной