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!
