Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];
ВнизПроверка строки Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c