DataSet in Excel exportieren, Integer immer 64 als Wert

[shmia]

Es gibt nicht nur ftInteger sondern auch noch ftSmallint, ftWord, ftLargeint.

Delphi-Quellcode:

        for j:= 1 to iColumnsCount do
          case vDS.Fields.Fields[j - 1].DataType of
             ...
          else 
             // Zelle sollte sinnvollen Wert erhalten
             // ohne Zuweisung ist XLArrayData[i, j] undefiniert
             XLArrayData[i, j] := 'unsupported datatype';
          end;