Archivo INI y propiedad FontStyle

[Casimiro Noteví]

Seguramente te han regalado esta navidad una nueva bola de cristal USB

[[Delphius]]

Empezado por Casimiro Notevi

Seguramente te han regalado esta navidad una nueva bola de cristal USB

¡La que yo tenía era a puerto serie! Espero que para mi próximo cumpleaños me regalen una que tenga conexión wifi y bluetooth. Como seguramente ya saben... todo es mejor si tiene bluetooth

Saludos,

[Casimiro Noteví]

Empezado por Delphius

¡La que yo tenía era a puerto serie! Espero que para mi próximo cumpleaños me regalen una que tenga conexión wifi y bluetooth. Como seguramente ya saben... todo es mejor si tiene bluetooth
Saludos,

A ver si para el año que viene está mejor la cosa por ahí, porque por lo que me ha contado un recién llegado argentino a España...
Aunque por aquí tampoco anda la cosa muy bien, a mí no me han traido este año ni carbón

[Jose Roman]

Gracias a todos esta ayuda sirvió mucho

[Jose Roman]

Hola...
Siguiendo con el reporte que he creado en tiempo de diseño, lo cree en un procedimiento (esto lo hice para cuadrar el titulo de un reporte el cual se modificara a gusto del cada usuario por medio de un archivo INI), todo funciona a la perfección y muestro un preliminar de como quedara:

Código Delphi [-]
with TqrPreview.Create(Application) do
try
  with TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI')) do
  try
    ...
  finally
    free;
  end 
  Preview;
finally
  free;
end;

La duda mia es la siguiente, como puedo volver a utilizar este mismo código sin que se genere un error, es decir, son tres tipos de reportes pero llevan el mismo encabezado y no deseo escribir tres veces este mismo codigo y los tres reportes se llaman por medio de tres procedimientos distintos. Gracias

[[Caral]]

Hola

Código Delphi [-]
Procedure GeneraReporte;
Begin
with TqrPreview.Create(Application) do
try
  with TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI')) do
  try
    ...
  finally
    free;
  end 
  Preview;
finally
  free;
end;
end;

Llamado desde un boton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 GeneraReporte;
end;

Saludos

[Jose Roman]

Gracias por responder, bueno quizas no me hice entender bien, hay un

Código Delphi [-]
procedure GeneraEncabezado

y en tiempo de ejecucion lo creo segun parametros de archivo INI, puedes ver que invoco

Código Delphi [-]
with TqrPreview.Create(Application) do

pero habra un procedimiento que llenara este informe de una manera y habra otro que la llena de otra manera el reporte (TQuickReport) lo cree en el encabezado pero tendria que crear otro TqrPreview en el otro procedimiento y este no genera el Encabezado, no se si me puedes entender bien