Developing.ru

На нашем сайте вы можете чувствовать себя в безопасности! Кроме того, мы используем зеркальные жесткие диски на все наши серверы, поэтому мы также взять резервную два раза в день на отдельных серверах. Мы используем ISPmanager, как на панели управления. ISPmanager является панель управления, которая позволяет легко управлять своей веб-сайт. С нами вы можете разместить столько веб-сайты и домены, которые вы хотите для учетной записи хостинга.
[url=http://fastvds.pro/shared-hosting.html]virtual hosting[/url]

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

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

[b]function[/b] GetIsTitle(AValue: [b]String[/b]): [b]Boolean[/b];
[b]Var[/b] S: [b]String[/b];
InX, InY: [b]Integer[/b];
[b]Begin[/b]
InY := 0; S := AValue;
InX := Pos(Ch_BraceSqrBegin, S);
[b]If[/b] InX > 0 [b]then[/b] S := S_Copy(S, 1, InX - 1);
[b]For[/b] InX := 1 [b]to[/b] Length(S) [b]do[/b]
[b]If[/b] S_IsLetter(S[InX]) [b]and[/b] (S[InX] = S_UpperChar(S[InX])) [b]then[/b] Inc(InY);
Result := InY > 1;
[b]End[/b];