Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как определить символ? 
V
    Опции темы
lexx67
Дата 28.11.2006, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 6.9.2006

Репутация: 1
Всего: 1



всем привет!!!
надо парсить строку на предмет символов "1...9" и ",".
как это сделать?
заранее всем пасиб. smile)
PM MAIL   Вверх
Rodman
Дата 28.11.2006, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122



lexx67, при чем тут базы????


А строку можно пропарсить и так
Код

for i:=1 to Length(Str)do
if((Str[i] in [1..9])or(Str[i]=','))then
   ShowMessage('Есть');


или я что то не понял???
PM MAIL WWW Skype GTalk YIM MSN   Вверх
lexx67
Дата 28.11.2006, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 6.9.2006

Репутация: 1
Всего: 1



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

пс
базы? строка заносится в поле таблицы, вот и все....smile)
PM MAIL   Вверх
Akella
Дата 28.11.2006, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329



Код

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, мысли сходятся  smile 


Цитата(lexx67 @  28.11.2006,  09:51 Найти цитируемый пост)
пс
базы? строка заносится в поле таблицы, вот и все....smile) 

да, логика поразительная  smile 
PM MAIL   Вверх
Rodman
Дата 28.11.2006, 10:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122



Цитата(Akella @  28.11.2006,  08:53 Найти цитируемый пост)
вопрос на засыпку: а при чём здесь базы данных?



lexx67, мож ты и работаешь с базой но вопрос никак с ней не связан... так что если хочешь чтобы ответ был наиболее правильный его необходимо задавать в нужной теме..

Ну а в общем - ПОЖАЛУЙСТА....

Добавлено @ 10:01 
Цитата(Akella @  28.11.2006,  08:53 Найти цитируемый пост)
Rodman, мысли сходятся  smile 

согласен... 
Цитата(Akella @  28.11.2006,  08:53 Найти цитируемый пост)
да, логика поразительная  smile  
smile  smile  smile

Добавлено @ 10:06 
lexx67, и не забудь пометить топик как решенный...
PM MAIL WWW Skype GTalk YIM MSN   Вверх
lexx67
Дата 28.11.2006, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 38
Регистрация: 6.9.2006

Репутация: 1
Всего: 1



всем огромное пасиб...smile)
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.6830 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.