Главная страница
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.015 c
4-20343
-= Demon =-
2003-05-06 15:51
2003.07.07
CreateProcess


3-19951
AkaSaint
2003-06-10 19:15
2003.07.07
Зачем в 3-звенке свой ADOConnection для каждого клиента?


1-20143
mtn1909
2003-06-25 10:39
2003.07.07
разрешение AVI файла


1-20162
Oleon
2003-06-25 12:26
2003.07.07
Здраствуйте. Как отчет из FastReport записать в Excel. Спасибо.


3-19991
k-man
2003-06-13 15:27
2003.07.07
DBGrid