проблемы с кодировкой в TXMLDocument

[denis716]

Добрый день, уважаемые!

натолкните пожалуйста на мысль, много копал интернет но решения пока не нашел. Есть такой код, во втором мемо - кракозябры. Что делать?

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XMLDoc;

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var textXML : widestring;
    myXML : TXMLDocument;
begin
   textXML:='<?xml version="1.0" encoding="windows-1251"?> <node1>блаблабла</node1>';
   memo1.Lines.Add(textXML); //все нормально

   myXml:=TXMLDocument.Create(nil);
   myXML.loadFromXML(textXML);
   myXML.Active:=True;
   Memo2.Lines:=myXML.XML;  //кракозябры
end;

end.

заранее спасибо!

[grominfo]

function MyUTF8Decode(Value : String) : String;
var
  Rs : String;
begin
  Rs := UTF8Decode(Value);
  if (Length(Value) > 0) and (Rs = '') then  //если у нас получилась пустая строка
    Rs := Value;  //значит там были русские символы НЕ в UTF8
  Result := Rs;
end; 

Memo2.text:=MyUTF8Decode(myXML.XML.text);

[denis716]

Да, спасибо, так работает.

А есть способы затолкать XML внутрь TXMLDocument так, чтобы Memo2.Lines:=myXML.XML;
и все ок?

другими словами TXMLDocument внутри все преобразует в utf8?

[grominfo]

А есть способы затолкать XML внутрь TXMLDocument так, чтобы Memo2.Lines:=myXML.XML;
и все ок?

другими словами TXMLDocument внутри все преобразует в utf8?

Ну после загрузки документа выполни

myXML.XML.text:=MyUTF8Decode(myXML.XML.text)

И продолжай дальше работать как с TStrings