Ver Mensaje Individual
  #3  
Antiguo 06-07-2006
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Reputación: 23
yusnerqui Va por buen camino
Resuelto

Bueno pues me respondo yo mismo, por si alguien lo necesita en el futuro.
Cita:
Empezado por yusnerqui
...
Código Delphi [-]
 
  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:


Código Delphi [-]
 
 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.
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo

Responder Con Cita