Re: unicode encoding

Return to index

Author

Message

Sergey Tkachenko

Posted: 02/06/2005 16:33:25

Begin-end is missed. It should be:

procedure TFrame2.Button4Click(Sender: TObject);

begin

  table.First;

  while not table.Eof do

  begin

    LoadRVFFromField(rv, table, 'french');

    SaveTextToField(RVEncodeWidestring(RVGetTextW.GetAllText(rv)),

      table, 'frenchUTF');

    table.Next;

  end;

end;

And add RVGetTextW, RVFMisc in the uses section of this unit.

The functions LoadRVFFromField and SaveTextToField must also be included in

code (before TFrame2.Button4Click).

This code uses two components: table and rv.

table component must be linked to the proper table.

rv is TRichView component placed on form, linked to its own RVStyle

component, and having Visible property equal to False.