Советы по 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]



Содержание  Назад  Вперед