Povo
Para solucionar a questão abaixo, criei uma variável TStringStream e depois
carreguei o RichEdit com o valor dessa variável.
Algo assim:
var
tm : TStringStream;
begin
tm := TStringStream.create('Text formatado em RTF');
RichEdit1.lines.LoadFromStream(tm);
tm.Free;
Isso permitiu que o texto formatado fosse visto. Acho que era falta de
suporte do Windows NT à RTF, pois não não foi necessário utilizar stream no
2000 e XP...
Atenciosamente
Cândido Luís Dias Ferreira
----- Original Message -----
From: Cândido Luís Dias Ferreira
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, October 11, 2005 7:12 PM
Subject: String para TPersistent - ou outro caminho
Povo
Tenho um trecho de código que funcionaria da seguinte forma, com um
componente TRichEdit:
RchEdtHmDiagnostico.Lines.Assign(DtMdlRhMedicoServer.QryDiag.FieldbyName('TXT_DIAGNOSTICO'))
O problema é que o valor do banco vem criptografado. A função que
descriptografa devolve um string. Ora, como o conteúdo é RTF, estão aparecendo
todos os caracteres de formatação RTF...
Alguém sabe como transformar de string para tpersistent ou conhece outra
solução?
Atenciosamente
Cândido Luís Dias Ferreira
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
