Format

rbuser

Dear All,

lField: TppField;
lComponent: TppComponent;
lLabel: TppLabel;
liField: Integer;

for liField := 0 to FieldList.Count - 1 do begin
lField := TppField(FieldList.Objects[liField]);
fReportFormatItem := ReportFormatItems.Items[liField] as
TReportFormatItem;
lField.DisplayFormat := fReportFormatItem.DisplayFormat;
lComponent := TppComponent(lField.ReportComponent);

When I try to assign this DispalyFormat line to the tppField and Set
Reference back to the control the Format is not setting correctly.

Can Any one please help me.

Thanks
-Bhoj
x256

digitalmetaphors

Here is an example that copies the display formatting from the TField in
code:

http://www.digital-metaphors.com/tips/AutoTransferTFieldDisplayFormat.zip


Cheers,

Jim Bennett
Digital Metaphors