Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Принадлежность множеству строк / 14 сообщений из 14, страница 1 из 1
31.05.2006, 14:14
    #33763416
Dipish
Dipish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Наверно тупой вопрос, но раньше над ним никогда не задумывался. У меня есть какой-то набор строк. Мне нужно проверить, принадлежит ли строка данному набору. При попытке объявить set of string, Delphi ругается что тока числа ему подавай (ordinal types required). А что делать в этом случае? Действительно никак не организовать множество строк?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:20
    #33763443
RENaissance
RENaissance
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
TStringList поможет.


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:22
    #33763448
zubbitto
zubbitto
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
TStringList, проверить можно в тупую
Код: plaintext
 If  pos(SomeThing, StringListX.Text)> 0   then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:24
    #33763461
RENaissance
RENaissance
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Я исходил из того, что у автора набор строк :)


Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:27
    #33763470
Мимопроходящий
Мимопроходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Привет, zubbitto!
Ты пишешь:

zubbittoz> TStringList, проверить можно в тупую
z> If pos(SomeThing, StringListX.Text)>0 thenНормальные герои всегда идут в обход?
На кой тогда вообще TStringList, если анализировать строку?
К тому же, возможны частичные вхождения.
Если уж TStringList, то IndexOf()

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:33
    #33763486
zubbitto
zubbitto
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Мимопроходящий

Я же написал - в тупую) Понятно дело, что подход подобный не правилен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 14:33
    #33763490
Бектуров Роман
Бектуров Роман
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
AnsiContainsXXX
AnsiMatchXXX

и т.д.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 20:45
    #33764581
Dimath
Dimath
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
А если "набор строк" - это не TStringList, то можно использовать
function AnsiIndexText(const AText: string; const AValues: array of string): Integer;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.05.2006, 21:12
    #33764604
Гаджимурадов Рустам
Гаджимурадов Рустам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Ну если брать такой вариант, то уж лучше AnsiMatchStr (хотя он к тому же AnsiIndexStr обращается).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.06.2006, 23:02
    #33770155
Dipish
Dipish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Всем большое спасибо! Буду пробовать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
19.11.2020, 20:05
    #40020584
qwe_dsa
qwe_dsa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Код: pascal
1.
function MatchText(const AText: string; const AValues: array of string): Boolean; overload;


без учета регистра
Код: pascal
1.
2.
if MatchText(sLanguages, ['fr-FR', 'en-GB', 'de-DE', 'it-IT', 'fr-CH', 'es-ES']) then
    Writeln('found')



Код: pascal
1.
function MatchStr(const AText: string; const AValues: array of string): Boolean; overload;

с учетом регистра
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2020, 22:30
    #40020631
pvv.pas
pvv.pas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
Такие посты навевают ностальгию.
В момент рождения данного поста Делфи начинает умирать но ещё в расцвете сил, участники сообщества в большинстве молоды, дерзки и амбициозны. Вон Мимопроходящий оказывается по человечески мог общаться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2020, 22:48
    #40020636
defecator
defecatorПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
pvv.pas
Такие посты навевают ностальгию.
В момент рождения данного поста Делфи начинает умирать но ещё в расцвете сил, участники сообщества в большинстве молоды, дерзки и амбициозны. Вон Мимопроходящий оказывается по человечески мог общаться

ты ещё кто такой ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2020, 09:28
    #40020683
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Принадлежность множеству строк
pvv.pas
В момент рождения данного поста Делфи начинает умирать

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Принадлежность множеству строк / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 334ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2037842]:
 0ms
get settings:
 4ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 191ms
total:  334ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]