Salvar Texto formatado !

Question

Pessoal, Tenho RichEdit e modifico uma parte do texto, negrito, it�lico, alinhamentos. Mas quando salvo o texto no banco essas mudan�as n�o aparecem, fica sem formato. alguem pode me ajudar !

O Banco � Firebird e o campo da tabela que recebe o texto � assim:

HISTORICO BLOB SUB_TYPE 2 SEGMENT SIZE 4096 NOT NULL,

Marcelo Saviski · Answer

que c�digo voc� est� usando para salvar to banco?talvez voc� tivesse que salvar no banco usando o RichEdit.Lines.SaveToStream......

Jefmene · Answer

Estou Usando,QRY_Cadastro.FieldByName(�HISTORICO�).AsString :=RE_Historico.Lines.Text;...

Marcelo Saviski · Answer

Eu j� tinha respondido algodo tipo, mas acho que a mensagem foi perdida, ent�o tente isso, nunca testei pra ver se funciona

para salvar:

var
  Stream: TStream;
begin
  Stream := TStream.Create;
  try
    RichEdit.Lines.SaveToStream(Stream);
    TBlobField(Campo).LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

para carregar:

var
  Stream: TStream;
begin
  Stream := TStream.Create;
  try
    TBlobField(Campo).SaveToStream(Stream);
    RichEdit.Lines.LoadFromStream(Stream);      
  finally
    Stream.Free;
  end;
end;

bom, teste ai e veja se funciona

Jefmene · Answer

Valeu irm�o pela dica....

F�rum Salvar Texto formatado ! #264169