Reporte FastReport desde TEdits

[wilcg]

Hola amigos del foro, quiero su ayuda. Necesito hacer un reporte con FastReport con los datos que ingreso en los TEdit que hay en un form. Es posible hacer, si alguien me da una orientación o un ejemplo. GRACIAS.

[Neftali [Germán.Estévez]]

No das muchos detalles, pero lo más sencillo es que revises los ejemplos que vienen con FastReports.
No he trabajado mucho, pero para que vayas haciendo pruebas, yo diría que puedes colocar campos en el report y asignarles una "variable", algo así como [CAMPO1], [CAMPO2],...

En el formulario de elphi, donde está tu componente de Report, en el evento OnGetValue (creo recordar) lo único que debes hacer es asignar valor a esas variables que has definido en el listado; Algo así como:


..
If UpperCase(ParName)='CAMPO1' Then begin
ParValue := edit1.Text;
end
else if UpperCase(ParName) = 'CAMPO2' Then begin
ParValue := edit2.Text;
end;
...



No te lo tomes al pie de la letra, es orientativo, pero te puede servir para empezar a revisar cosas y a hacer algunas pruebas...

[wilcg]

Neftali, gracias por tu aporte me ayudo muchisimo. Y quedo asi por si alguien lo necesite.

No he creado variables pero, a las etiquetas lo he escrito asi.
[campo1]
[campo2]
........
y en el evento OnGetValue.
procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
if CompareText(VarName, 'campo1') = 0 then begin
Value := Edit1.Text;
end
else if CompareText(VarName, 'campo2') = 0 then begin
Value := Edit2.Text;
end
else if CompareText(VarName, 'campo3') = 0 then begin
Value := Edit3.Text;
end;
end;

[Neftali [Germán.Estévez]]

Sí, a eso me refería.
Realmente cuando dije "variables", estaba mal dicho, ya que las variables son otra cosa.