Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как определить символ?

Автор: lexx67 28.11.2006, 09:19

всем привет!!! надо парсить строку на предмет символов "1...9" и ",". как это сделать? заранее всем пасиб. )

Автор: Rodman 28.11.2006, 09:46

lexx67, при чем тут базы???? А строку можно пропарсить и так Код for i:=1 to Length(Str)do if((Str[i] in [1..9])or(Str[i]=','))then    ShowMessage('Есть'); или я что то не понял???

Автор: lexx67 28.11.2006, 09:51

ты все правильно понял...пасиб дружище. Родина тебя не забудет в трудную минуту... ) пс базы? строка заносится в поле таблицы, вот и все....)

Автор: Akella 28.11.2006, 09:53

Код s,result:string; i:integer; ... For i :=1 to Length[s] do   if s[i] in ['0'..'9',DecimalSeparator] then result := result + s[i]; //вместо запятой используем системную константу DecimalSeparator Добавлено @ 09:55  lexx67, вопрос на засыпку: а при чём здесь базы данных? Добавлено @ 09:57  lexx67, о, пока писАл.... Rodman, мысли сходятся    Цитата(lexx67 @  28.11.2006,  09:51 ) пс базы? строка заносится в поле таблицы, вот и все....smile)  да, логика поразительная

Автор: Rodman 28.11.2006, 10:00

Цитата(Akella @  28.11.2006,  08:53 ) вопрос на засыпку: а при чём здесь базы данных? lexx67, мож ты и работаешь с базой но вопрос никак с ней не связан... так что если хочешь чтобы ответ был наиболее правильный его необходимо задавать в нужной теме.. Ну а в общем - ПОЖАЛУЙСТА.... Добавлено @ 10:01  Цитата(Akella @  28.11.2006,  08:53 ) Rodman, мысли сходятся  smile  согласен...  Цитата(Akella @  28.11.2006,  08:53 ) да, логика поразительная  smile        Добавлено @ 10:06  lexx67, и не забудь пометить топик как решенный...

Автор: lexx67 28.11.2006, 12:43

всем огромное пасиб...)

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)