Hi,
i need to convert rtf comand DATE & TIME to Fixed Text.
// rtf code sample:
...
\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f1\fs22\cf0 {\field{\*\fldinst{DATE}}{\*\fldrslt{DATE}}}\plain\f1\fs22\cf0 \plain\f1\fs22\cf0 {\field{\*\fldinst{TIME}}{\*\fldrslt{TIME}}}\par
...
what i need to do is to select rtf code:
{\field{\*\fldinst{DATE}}{\*\fldrslt{DATE}}}
and replace it with Now().DateString();
I have tried to use RtfTextEdit->Finder->Next("DATE"); but it doesn't
seem to work.
How can i do this ?
Hi,
You need to do this in the RTF writer. LOcate WriteObject method.
Julian
i am sorry Julian but i can't find this method ....
can you please show me an example.
i fogot to tell that i am using version 4.22a in BCB.
thks
in unit WPWrtRTF:
function TWPRTFWriter.WriteObject(C: Char; tag: Integer; P: PTTextObj): ecErrCode;
// inserted to save DATE
if (p^.obj is TWPObjectField) and not
TWPObject(P^.obj).SaveAsObject and
(TWPObjectField(p^.obj).FieldName='DATE')
begin
s := DateToStr(now);
end
else
// original code follows:
if (p^.obj is TWPObjectField) and not
TWPObject(P^.obj).SaveAsObject then
begin ...
Thanks for you help ;)
