Estou fazendo essa pergunta porque a dias estou tendo uma dor de cabe enorme com essa tranqueira de RichEdit, hora ele salva correto hora ele salva um monte de ???????????? na base... sei que pode ser erro na conversão de caracteres mas o detalhe é que o problema é intermitente.
Se for a primeira vez que gravo ele grava corretamente
Se for edição ele grava um monte de caracteres estranhos, tipo chines.
Se eu limpar a base e inserir o texto novamente e grava corretamente.
As vezes na edição ele grava corretamente.
Eu gostaria de trocar tudo por HTML mas é inviável, são anos de gravação tudo em RichEdit, pois preciso do texto formatado.
A forma que estou fazendo segue abaixo:
...
fdm.RichStream := TStringStream.Create(fdm.zqrAux_Aet_TextoDiversas.AsAnsiString);
//fdm.zqrAux_Aet_TextoDiversas.SaveToStream(fdm.RichStream);
f_richedit := Tf_richedit.Create(nil);
fdm.RichStream.Position := 0;
f_richedit.RichEdit.Lines.LoadFromStream(fdm.RichStream);
TFuncoes.pJustRichEdit(f_richedit.RichEdit, False);
f_richedit.ShowModal;
if (fdm.Salvar) then
begin
fdm.zqrAux_Aet_Texto.Edit;
fdm.RichStream.Position := 0;
fdm.zqrAux_Aet_TextoDiversas.LoadFromStream(fdm.RichStream);//AsString := fdm.RichStream.DataString;
fdm.zqrAux_Aet_Texto.Post;
fdm.zConecta.Commit;
end;
FreeAndNil(fdm.RichStream); // .Free;
fdm.zqrAux_Aet_Texto.Close;
f_richedit := nil;
Observe em alguns "comentados" que ja tentei salvar de outras formas, mas o problema continua
A base de dados é postgresql, mas acho que nem vem ao caso, porque ele grava texto la e esta com UTF8 e tudo como pede o figurino
Alguem sabem uma maneira segura de trabalhar com esse RichEdit?
Digo segura porque correta ja nem sei mais, rs
fdm.Salvar
é um método ou apenas uma variável booleana? E pelo que vi você joga os dados em um richedit, formata os dados só que no fim grava o que ta nofdm.RichStream
e não o que está formatado nof_richedit.RichEdit