RitchEdit da problemas en Windows 98

[yusnerqui]

Hola amigos del foro, primero que todo quiero agradecer el que se tomen la molestia de leer este hilo.

Resulta que en este mismo foro aprendí a guardar datos en una base de datos con formato rtf, para este fin uso un richedit, pues el DBRichtEdit no está acorde con la lógica de mi aplicación. A continuación muestro el código que utilizo:


var
Aux: TStringStream;
begin
Aux := TStringStream.Create('');
try
Requi.Lines.SaveToStream(Aux);
FTabla.FieldByName('Requisitos').AsString := Aux.DataString;
finally
Aux.Free;
end;


Donde Requi es mi TRichEdit. Para mostrar el texto posterioemente simplemente escribo:

Requi.text := FTabla.FieldByName('Requisitos').AsString;


Todo esto funciona en Windows xp, pero si lo corro en Windows 98 me muestra todo el código rtf tal y como está guardado. Como puedo solucionar este problema?

Gracias una ves más.
Saludos Yusnerqui

[yusnerqui]

Hola de nuevo, será que no tiene solución mi problema, A que se deberá este comportamiento?

Saludos y gracias una ves más.

[yusnerqui]

Bueno pues me respondo yo mismo, por si alguien lo necesita en el futuro.

...

Requi.text := FTabla.FieldByName('Requisitos').AsString;


Todo esto funciona en Windows xp, pero si lo corro en Windows 98
me muestra todo el código rtf tal y como está guardado. Como puedo
solucionar este problema?



Pues nada que la solución está en sustituir ese código por este otro:



var
Aux: TStringStream;
begin
Aux := TStringStream.Create(FTabla.FieldByName('Requisitos').AsString);
try
Requi.Lines.LoadFromStream(Aux);
finally
Aux.Free;
end;
end;



un poquito más largo pero funciona tanto en XP como en 98

Saludos.