Советы по Delphi
Поиск по маске в StringGrid
|
list : tStringList; { tStringList для поиска }
target: string; { строка для поиска, например. 'LeftPelvic' }
{ устанавливаем позицию для начала поиска, например, 0 для старта с самого начала, или другое целое для старта с любого места списка, например i + 1 для последнего значения } { приведенный ниже код делает поиск нечувствительным к регистру, если вам нужно обратное, уберите вызов ansiUpperCase } target := ansiUpperCase (target); for i := start to list.count-1 do if ansiUpperCase(copy(list.item[i], 1, length(target))) = target then мы нашли это! |
Если вы хотите организовать простой поиск, т.е. искать 'LeftPelvic' везде, а не только вначале, воспользуйтесь следующим кодом:
| if pos (target, ansiUpperCase(list.item[i])) > 0 then мы нашли это; |
[001557]
