View Issue Details

IDProjectCategoryView StatusLast Update
0001360JEDI VCL04 Feature Requestpublic2004-04-22 01:10
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001360: JvGExportExcel - force Textformat
DescriptionWhen exporting text, MS Excel might interprete it as formula, e.g. "1-3" leads to a date. The idea is to add a property that force Excel to keep the data in the text format.
Additional InformationBased on 3.00 Beta, JvGExportComponents.pas, Last Modified: 2003-01-15

Add a new property "ExportAsText", default false (to be compatible with older version).

Add line 115:
    procedure SetExportAsText(const Value: boolean);
Add line 143:
property ExportAsText: boolean read FExportAsText write SetExportAsText default false;
Add line 329:
FExportAsText:=false;

Change lines 424:
          if not (DataSet.Fields[i].DataType in [ftBlob, ftGraphic,
            ftParadoxOle, ftDBaseOle, ftTypedBinary,
              ftReference, ftDataSet, ftOraBlob, ftOraClob, ftInterface,
              ftIDispatch]) then
              begin
                if FExportAsText
                  then Sheet.Cells.NumberFormat:='@';
                Sheet.Cells[RecNo, ColNo + i] :=
                   GetFieldValue(DataSet.Fields[i]);
              end;

TagsNo tags attached.

Activities

user72

2004-03-01 10:48

  ~0003138

Added to CVS. Thank you!

Issue History

Date Modified Username Field Change
2004-02-23 07:24 anonymous New Issue
2004-03-01 10:48 user72 Status new => resolved
2004-03-01 10:48 user72 Resolution open => fixed
2004-03-01 10:48 user72 Assigned To => user72
2004-03-01 10:48 user72 Note Added: 0003138
2004-04-22 01:10 user72 Status resolved => closed