RichEdit para comentar las ventajas de un ‘producto’

[ecfisa]

Hola jusas

El problema de la pérdida del formato lo tenés cuando cargas en un arreglo de texto,
lo que luego se mostrará en el RichEdit.

Yo cargaría directamente el archivo .RTF al RichEdit y luego posisionaría en el texto buscado.

Carga:

procedure CargarRTF;
begin
  RichEdit1.Lines.LoadFromFile('Archivo.RTF');
end;

Busqueda:

procedure BuscarEnRTF(Producto: string);
  with RichEdit1 do
  begin
    SetFocus;
    SelStart:= Pos(Producto, RichEdit1.Text)-1;
    SelLength:= Length(Producto); 
  end;
end;

Este código sólo te situa en el nombre del producto y lo deja seleccionado. Ahora bién, si sólo
querés mostrar la parte correspondiente al producto y no todo, tendríamos que normalizar de algún
modo la ayuda.
Es decir, señalizar donde comienza y términa la información de cada producto para luego eliminar las
líneas anteriores y posteriores a la información que queres mostrar.


Saludos.