TRichView.com

Dear Sergey Tkachenko,

Thank you very much!

I tested my program as your suggestion.

My program run successful.

My problems are solved .

Thanks a lot.

Dear Sergey Tkachenko,

The program run ok.But when I test it,I found a new problem.

My operate steps is as below.
1)I input the content on the tag "eName15".
http://www.cnblogs.com/mikalshao/gallery/image/95383.html
2)I click "save" button to save it to the "X_result".
http://www.cnblogs.com ...

Corrections in the code:
1) Modify ChangeFieldValue:
procedure ChangeFieldValue(RVData: TCustomRVData;
const s: String);
var ParaNo, StyleNo, Tag: Integer;
sl: TStringList;
i, Cnt: Integer;
begin
[color=red]RVData := RVData.GetRVData;[/color]
sl := GetStringListFromString(s);
if sl.Count<X ...

I test it.

If you use "right" click to save ,it's not successful.

The best is to use your download software to download it.

I test it with download software, it's ok.

Sergey Tkachenko wrote:This link does not work (it requires me to log in?)

I'm sorry that I have not test it before.

Please try this link.(http://www.cnblogs.com/mikalshao/archiv ... 60080.html)

click the ¡¾Delphi Program¡¿Link.

If you have also other problem, please tell me.

Thanks

Can you create a simple compilable project (preferably not using database tables) and send it to me?
I'll try to fix it.

Thank you.

I have uploaded my program.The url is as below.
http://files.cnblogs.com/mikalshao/DZBL-test.rar

The main button is Save,read,button1,button2.
The Save button is ...

I write off the two sourcecode as below in the read,button1,button2 button.

form1.srv.Visible:=false;
form1.srv.Visible:=true;

then I run my program. I click the buttons from the read ,button1,button2.
At first, It's can switch successful.
But I switch serval times,the error also be found.

The ...

I create two new button.(button1,button2)

their sourcecode is similar to the read button.

the different is s string;

The read button's is "s:='111';"
The button1's is "s:='111'+#13#10+'222';"
The button2's is "s:='111'+#13#10+'222'+#13#10+'333';"

I run my program.
If I click the button order is ...

Dear Sergey Tkachenko,

Thank you for your help.

I modify your function as below.

procedure ChangeFieldValue(RVData: TCustomRVData;
const s: String);
var ParaNo, StyleNo, Tag: Integer;
sl: TStringList;
i, Cnt: Integer;
begin
sl := GetStringListFromString(s);
if sl.Count<X_Arrcount then ...

As I understand, you modified GetFieldValue2 so that it adds '^' between lines.

To change 'eName5' to multiline text:
1) Read field value from database (s = '111^222^333')
2) Change '^' to #13#10 (s = '111'#13#10'222'#13#10'333)
3) Call:
if GetFieldLocation2(rv.RVData, field, RVData, ItemNo ...

I'm meaning is that I hope when the user read the data again, the richview format as the user input before.
(when the user input ,they perhaps user "enter" key auto create serval "eName" tags.)

example:
when input:
1111
2222
3333

when read:

I hope :
1111
2222
3333

not like this ...

I created these functions for you, but I HIGHLY recommend you to use one of demos from http://www.trichview.com/forums/viewtopic.php?t=8 as a basis, instead of these functions.
Thank you for your reply.

I'm sorry I can't be blind to the demo.

Here's my meaning's sourcecode.
1.create the talbe ...

Sorry for delay.

As I understand, you need to change text of the field.

1) Use the unit http://www.trichview.com/support/files/RVInsertItems.zip
(the most probably, it will be included in the next versions of TRichView.
This unit has the function RVInsertString allowing to insert a single line ...

Urgent!

Please help me!

Thanks!

Sergey Tkachenko,

I searched the two funcitons.
I create my funcitons base on them.

The detail is as below.

procedure TForm1.bSaveClick(Sender: TObject);
var s: String;
begin
s := trim(GetFieldValue2(srv.RichViewEdit, 'eName5'));
showmessage('»бХпјЗВјЎѕ'+s+'Ўї±ЈґжіЙ№¦ЈЎ');
end;


function ...