FormattedMemo?

← →
ASM (2002-07-01 15:20) [0]

Ребята, подскажите пожалуйста есть ли возможность найти вжождение подстроки в FormattedMemo поле функцией Pos("Подстрока", ftFmtMemo.Lines.Text) или Pos("Подстрока", ftFmtMemo.Value). ftFmtMemo - поле в таблице Paradox. ftFmtMemo.Lines.Text получается что-то типа:
{\rtf1\ansi\ansicpg1251\uc1 \deff0\deflang1049\deflangfe1049{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f28\froman\fcharset238\fprq2 Times New Roman CE;}{\f29\froman\fcharset204\fprq2 Times New Roman Cyr;}
{\f31\froman\fcharset161\fprq2 Times New Roman Greek;}{\f32\froman\fcharset162\fprq2 Times New Roman Tur;}{\f33\froman\fcharset177\fprq2 Times New Roman (Hebrew);}{\f34\froman\fcharset178\fprq2 Times New Roman (Arabic);}
{\f35\froman\fcharset186\fprq2 Times New Roman Baltic;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;
\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{
\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1049\langfe1049\cgrid\langnp1049\langfenp1049 \snext0 Normal;}{\*\cs10 \additive Default Paragraph Font;}}{\info
{\title \"dd\"f2\"ee\"f2 \"f2\"e5\"ea\"f1\"f2 \"f5\"f0\"e0\"ed\"e8\"f2\"f1\"ff \"e2 ftFmtMemo}{\author \"cc\"e5\"e4\"ed\"e8\"ea\"ee\"e2}{\operator \"cc\"e5\"e4\"ed\"e8\"ea\"ee\"e2}{\creatim\yr2002\mo7\dy1\hr14\min49}{\revtim\yr2002\mo7\dy1\hr14\min51}
{\version1}{\edmins2}{\nofpages1}{\nofwords0}{\nofchars0}{\*\company HOME}{\nofcharsws0}{\vern8249}}\paperw11906\paperh16838\margl1134\margr567\margt567\margb567
\deftab708\widowctrl\ftnbj\aenddoc\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace187\dgvspace180\dghorigin1134\dgvorigin567\dghshow1\dgvshow2
\jexpand\viewkind1\viewscale117\viewzk2\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule \fet0\sectd \linex0\headery709\footery709\colsx708\endnhere\sectlinegrid360\sectdefaultcl
{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta )}}{\*\pnseclvl5
\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang
{\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1049\langfe1049\cgrid\langnp1049\langfenp1049 {\f29 \"dd\"f2\"ee
\"f2}{ }{\f29 \"f2\"e5\"ea\"f1\"f2 \"f5\"f0\"e0\"ed\"e8\"f2\"f1\"ff \"e2 }{ftFmtMemo.}{\lang1033\langfe1049\langnp1033 Value}{ }{\f29 \"e8 \"f4\"f3\"ed\"ea\"f6\"e8\"ff Pos("\"cf\"ee\"e4\"f1\"f2\"f0\"ee\"ea\"e0", ftFmtMemo.Lines.Text)}{ }{\f29 \"f0\"e0\"e1
\"ee\"f2\"e0\"e5\"f2 \"ed\"e5 \"ef\"f0\"e0\"e2\"e8\"eb\"fc\"ed\"ee.}{
\par }}
Извеняюсь конечно за такой объем белеберды Rich"евской, тут всего две строчки ;)

← →
kaif (2002-07-01 15:35) [1]

Говорят, что у таких классов обычно бывает свойство, где просто человеческий текст тоже виден (еще один TStrings). Может в таком свойстве поискать? Обычно этот текст используется компонентом для работы с clipboard windows.

FormattedMemo? Найти похожие ветки