Изменить код функции для поиска прописного полужирного текста

[Massaget]

Приветствую всех!

В текущей функции парсируется только слово написанное прописным и полужирным шрифтом.
А следующие слова с теми же атрибутами расположенными далее, просто игнорируются.
Необходимо парсировать все слова имеющие одинаковые атрибуты форматирования и расположенные на одной строке разделённые через: пробел, дефис, кавычки (Word'овские и возможно такие - " ").
Буду рад, если поможете отредактировать код!

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;

[Stilet]

И че этот код действительно жирность шрифта распознает?

[Аватар]

Что за прикол выделения ключевых слов в коде? Кнопкой # не проще?

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;

По сути - чего это полужирный шрифт?
По коду - Ch_BraceSqrBegin, S_IsLetter и S_UpperChar ?

[Massaget]

Сообщение от Stilet

И че этот код действительно жирность шрифта распознает?

Жирность не берёт, но прописные определяет. И причём криво. Так как пропускает следующее прописное слово. А вообще нужно было поправить код так, чтобы работал со всеми шрифтами и кодировками.

Аватар
Не было времени разбираться с функционалом форматирования на ресурсе. Но к тому же не хотел напрягать гостей и пользователей для разбора кода.

S_UpperChar - прописной шрифт. А полужирность он вообще игнорирует.

[ResourceSpace]

парсировать все слова
...
пропускает следующее прописное слово.

Функция возвращает Boolean. Цель функции GetIsTitle()?
Что за переменная или константа Ch_BraceSqrBegin? Что именно делают функции S_IsLetter() и S_UpperChar()? Покажите их.

имеющие одинаковые атрибуты форматирования

function GetIsTitle(AValue: String): Boolean;

Какого ещё полужирного? String в принципе не содержит никаких атрибутов.

чтобы работал со всеми шрифтами и кодировками

String это массив символов. В старых Делфи массив Char (1 байт, ANSI) в новых вроде WideChar (поправьте, если не так). Ни шрифтов ни кодировок оно не предполагает.

[Krasiosoft]

Я так понимаю, это поиск слов, выделенных тегом Ch_BraceSqrBegin. Но информации мало, чтоб можно было чем-то помочь.

Massaget, приведите пример входных данных, и пример того, что хотите получить на выходе.

[Massaget]

Krasiosoft, ResourceSpace, Код написан не мной. Могу сказать следующее, все функции и процедуры и вообще все компоненты не являются стандартными VCL. От этого и такая сложность. Если сможете помочь, могу выложить весь исходник приложения.
Но, предупреждаю! В приложении не использовано ни единого стандартного компонента Delphi 7, все компоненты созданы автором кода. Само собой VCL его компонентов приложить не могу.
Если есть решение, то не обязательно париться с этой функцией. Может есть другое решение, приму и его.

Word sample text.jpg - исходный текст в Word документе.
Export-table_need.jpg - желаемый результат.
Simbols_MARKER.jpg - символы которые присутствуют в исходном тексте. Шрифт Times New Roman и TimesUZ (могу приложить).

[Krasiosoft]

А в каком виде данные с Word'a оказываются в AValue: String? Код, который Вы привели, наверно, делает следующее:

function GetIsTitle(AValue: String): Boolean;
Var  S: String;
     InX: Integer;
     InY: Integer;
Begin
     InY := 0; 
     S := AValue;   // непонятно зачем тут делать копию строки, это можно перенести в else для "If InX > 0 then"
     InX := Pos(Ch_BraceSqrBegin, S);   //  ищет вхождение Ch_BraceSqrBegin в строку S 
     If InX > 0 then S := S_Copy(S, 1, InX - 1);  //  если вхождение было, копирует в строку S все содержимое до начала Ch_BraceSqrBegin
     For InX := 1 to Length(S) do   // цикл прохода по строке, которую скопировали в S
          //  считает количество заглавных букв и записывает его в InY
          //  не ясно, почему так сделано, а что если будет строчная буква в строке?
          If S_IsLetter(S[InX]) and (S[InX] = S_UpperChar(S[InX])) then Inc(InY);
     Result := InY > 1;  //  если нашел хотя бы 2 заглавные буквы, тогда возвращает true, иначе false
                         //  опять же не ясно, почему именно 2, и для чего тогда нужно было проходиться по всей строке?
End;

В итоге, функция GetIsTitle - это просто проверка есть ли вхождение в строку (AValue: String) с нужными параметрами.

[Massaget]

Krasiosoft для полноты картины могу приложить другой кусок кода, но вряд ли это поможет. Можно ли с имеющимися исходниками замутить то, что мне необходимо?

[Krasiosoft]

Тут нужно посмотреть в каком виде текст с Word'a попадает в строку, в данном случае, это AValue: String, а дальше уже будет видно.