memo içeriğini xml olarak kayıt

[kodcuminik]

Merhaba memo içeriğini txt olarak

Kod: Tümünü seç

Memo1.Lines.SaveToFile('c:\abc.xml');

kodu ile kayıt ediyorum aynı şekilde xml olarak ta kayıt etmek istiyorum
xml olarak kayıt ettiğimde

Kod: Tümünü seç

XML sayfası görüntülenemiyor 
XML girişi stil sayfası kullanılarak görüntülenemez. Lütfen hatayı düzeltin ve Yinele düğmesini tıklatın veya daha sonra yeniden deneyin. 

hatası alıyorum memo içindeki bilgiyi xml olarak nasıl kayıt ederim

[adnansirca]

forma bir adet XMLDocument koyun.

Kod: Tümünü seç

try
    StringList := TStringList.Create;
    StringList.Text := '<Data>' + '<Header versiyon="1.1" />' +
   '<Adi>'+
   'Ali'+'</Adi>'</Data>'; 
    cxMemo1.Text := '';
    cxMemo1.Lines.Add(StringList.Text);
    XMLDocument := LoadXMLData(FormatXMLData(StringList.Text));
    XMLDocument.Version := '1.0';
    XMLDocument.Encoding := 'UTF-8';
    if SaveDialog1.Execute then
      XMLDocument.SaveToFile(SaveDialog1.FileName + '.xml');
  finally
    StringList.Free;
  End;
  XMLDocument := nil;
  ShowMessage('XML Dosyası Oluşturuldu');