Приветствую всех!
В текущей функции парсируется только слово написанное прописным и полужирным шрифтом.
А следующие слова с теми же атрибутами расположенными далее, просто игнорируются.
Необходимо парсировать все слова имеющие одинаковые атрибуты форматирования и расположенные на одной строке разделённые через: пробел, дефис, кавычки (Word'овские и возможно такие - " ").
Буду рад, если поможете отредактировать код!
Код:
1 2 3 4 5 6 7 8 9 10 11 | function GetIsTitle(AValue: String ): Boolean ;
Var S: String ;
InX, InY: Integer ;
Begin
InY := 0 ; S := AValue;
InX := Pos(Ch_BraceSqrBegin, S);
If InX > 0 then S := S_Copy(S, 1 , InX - 1 );
For InX := 1 to Length(S) do
If S_IsLetter(S[InX]) and (S[InX] = S_UpperChar(S[InX])) then Inc(InY);
Result := InY > 1 ;
End ;
|
Админ: пользуемся тегами для оформления кода!