Rich format to pure text, DBSRichViewEdit

[agent86]

I have 2 MS SQL 2000 datafields,

Finding_Text and
Finding_RichView

I have a dbmemo linked to Finding_Text.
I have a DBSRichViewEdit linked to Finding_RichView

Editing will be done in the DBSRichViewEdit.

When the data is saved in DBSRichViewEdit I want a pure text version saved in Finding_Text.

What to do?

[Sergey Tkachenko]

If you use a table component inherited from TDataSet, you can use BeforePost event:

uses RVGetText; (or RVGetTextW if you use Unicode text)

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
Table1.FieldByName('Finding_Text').AsString := GetAllText(DBSRichViewEdit1.RichViewEdit);
end;

[agent86]

Thank you for the quick reply.

Do you know if there are any samples the use the DBSRichViewEdit? I couldn't find any.

Does it essentially work the same way as the SRichViewEdit so that the examples work for both DBSRichViewEdit and SRichViewEdit?

[Sergey Tkachenko]

Yes, DBSRichViewEdit works like SRichViewEdit.
You can use RichViewActions for it as well. But do not use New-Open-Save-SaveAs actions, they are related to files.

[agent86]

Is there anyway to keep strikeout?

[Sergey Tkachenko]

Keep where?

[agent86]

Is ther a way to GetAllText and leave strikeout in place. When I tested it the strikeout disappears as well.

[Sergey Tkachenko]

But strikeout (if you mean fsStrikeOut in Style) cannot be stored as text.
You need to get data in RTF or RVF format instead.