Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Вопрос по функции pos   Найти похожие ветки 

 
Дельфятник   (2004-02-24 15:57) [0]

У меня есть функция проверки наличия цифры в строке, в которой используется функция pos. Сама функция выглядит так:

function ThereIsDigit(s: String): Boolean;
begin
Result:=(pos(s,"0")>0) or (pos(s,"1")>0) or (pos(s,"2")>0) or
(pos(s,"3")>0) or (pos(s,"4")>0) or (pos(s,"5")>0) or
(pos(s,"6")>0) or (pos(s,"7")>0) or (pos(s,"8")>0) or (pos(s,"9")>0)
end;

Проблема состоит в том, что для строки "New 760" (и не только для этой строки) эта функция возвращает значение False. Как справиться с этой проблемой?


 
Владислав ©   (2004-02-24 16:01) [1]

Может хелп по Pos прочитать?


 
Dimka Maslov ©   (2004-02-24 16:03) [2]

Во первых - сначала подстрока, потом строка, а во вторых..., я промолчу, а то пост удалят


 
Anatoly Podgoretsky ©   (2004-02-24 16:06) [3]

Справка в данном случае очень бы помогла.


 
jack128 ©   (2004-02-24 16:08) [4]


> а во вторых..., я промолчу, а то пост удалят
Ну кривовато реализованно, конечно, но ведь человек учится..


> Дельфятник (24.02.04 15:57)

Попробуй так
function ThereIsDigit(s: String): Boolean;
var
i: integer;
begin
Result := False;
for i := 1 to Length(s) do
if (s[i] >= "0") and (s[i] <= "9") then
begin
Result := True;
Exit;
end;
end


 
MBo ©   (2004-02-24 16:08) [5]

result:=False;
for i:=1 to Length(s) do
if s[i] in ["0".."9"] then begin
result:=True;
break;
end;


 
Дельфятник   (2004-02-24 16:17) [6]

Проблема решена. Всем большое спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.014 c
1-12381
Laymer
2004-02-25 08:09
2004.03.05
DirectX


1-12439
Алексей
2004-02-25 12:50
2004.03.05
ввод числа форматированный, извращённый. как??


4-12578
_BladeR
2003-12-28 01:28
2004.03.05
Вопрос по параметрам CBTProc


1-12429
Cherepah
2004-02-23 05:27
2004.03.05
Treeview и Count


1-12396
}|{yk
2004-02-24 18:14
2004.03.05
Продолжение изучения написания компонентов Delphi