Ver Mensaje Individual
  #7  
Antiguo 27-04-2004
Avatar de Nuria
Nuria Nuria is offline
Miembro
 
Registrado: may 2003
Posts: 531
Reputación: 24
Nuria Va por buen camino
Hola!

Simplemente cuando selecciona un campo que quiere añadir a la plantilla hago lo siguiente:

Código:
  // Campos--> TComboBox donde tengo los nombres de los campos .
  //  Editor ---> TRichEdit. 
  // Cuando selecciona un campo del comboBox...
  Editor.SelText:= '<<' + Campos.Items.Strings[Campos.ItemIndex]+ '>>';
Así me creo la plantilla. Es de tipo texto pero la puedes guardar con la extensión que quieras. Luego para sustituir los campos hago lo siguiente:

Código:
      // Valor ---> Array donde estan los valores de los campos...
     // Sustituyo campos
      for i:= 0 to Length(Campos) - 1 do begin
        texto := '<<' + Campos[i] + '>>';
        // busco la  de la string a sustituir...
        posi := Editor.FindText(texto,1,longi,[stSetSelection]);  
        while posi >= 0 do begin
          MainForm.Editor.selStart :=  posi;
          MainForm.Editor.SelLength := Length(texto) ;
          // Sustituyo el texto....
          MainForm.Editor.SelText := valor[i];
          posi := Editor.FindText(Texto,posi,longi,[stSetSelection]);
        end;
      end;
Cita:
Empezado por oliverinf
quisiera saber si usas algun editor de reportes com Quick Report o algun otro.
De momento no. Aunque creo que al final tendré que utilizar alguno, ya que estoy teniendo algún problemilla a la hora de imprimir ciertas cosas...Hilo

Bueno espero haberme explicado bien. Cualquier duda ya sabes...

Saludos!
Responder Con Cita