Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   guardar un texto con formato en un nodo xml sin perder el formato (https://www.clubdelphi.com/foros/showthread.php?t=79836)

danyfebrero 14-08-2012 05:40:38

guardar un texto con formato en un nodo xml sin perder el formato
 
hola
deseo poder guardar en un nodo de un documento xml el texto que tengo en un RichEdit, pero guardarlo con el formato de texo y despues poder leerlo con el mismo formato.
Alguien me pudiera ayudar?
Gracias de antemano
dany

Neftali [Germán.Estévez] 14-08-2012 09:45:16

La forma de extraer el texto "con formato" de un richedit es utilizar un Stream.

Código Delphi [-]
var
  stream: TStringStream;
begin
  stream := TStringStream.Create('');
  RichEdit1.PlainText := False;
  // Asignar al stream
  RichEdit1.Lines.SaveToStream(stream);
  // Ahora se puede extraer el texto con formato...
  Memo1.Lines.Text := stream.DataString;  
  edit1.Text :=  := stream.DataString;  
  node.Text := stream.DataString;  
  ...

danyfebrero 14-08-2012 18:26:31

antes que todo gracias neftali, disculpame pero no entiendo muy bien, Deberia salvar el texto del richedit a una variable stream y luego le asigno al nodo xml el valor de la variable stream?
saludos
dany

danyfebrero 14-08-2012 19:02:57

entonces para leerlo tendria que hacerlo todo a la inversa? porque declaro la propiedadPlainText := False que funcion cumple?
este sería el codigo de lectura?

Código Delphi [-]
var stream: TStringStream;

begin stream := TStringStream.Create(nodo.text);    try     Richedit.Lines.LoadFromStream(stream);   finally     stream.Free;   end; end;

saludos y gracias

danyfebrero 15-08-2012 00:37:17

gracias neftali me funcionó perfecto.
saludos
dany


La franja horaria es GMT +2. Ahora son las 18:47:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi