|
|
#1
|
|||
|
|||
Поле memo
В поле memo присутствует текст скажем такие имена Коля Вася Саша и.д надо проверить есть ли в списке например имя Вася, если есть, присваивается значение 1, если нет - 0
|
#2
|
||||
|
||||
Если в мемо именно список, вида
Цитата:
а если искомое слово во всём тексте нужно найти, тогда Код:
function isVasya(Substr, S: string): integer; begin if pos(Substr, S) > 0 then Result:= 1 else Result:= 0; end; ... Label.Caption:= IntToStr(isVasya('Вася', Memo.Text)); Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
одна поправочка. если надо искать без учета регистра, то код можно написать так:
Код:
function isVasya(Substr, S: string; CaseSens : Boolean = True): integer; begin Result := False; If CaseSens Then begin if pos(Substr, S) > 0 then Result:= 1; end Else begin if pos(AnsiUpperCase(Substr),AnsiUpperCase(S)) > 0 then Result := 1; end; end; |