Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизКонвертация таблицы в Excel Найти похожие ветки
← →
AndrewK (2002-03-28 15:12) [1]Сам разобрался.
Кому интерестно:
Переписываем
TabGrid := VarArrayCreate([0,(R - 1),0,(C - 1)],VarVariant);
...
TabGrid[I,J] := FieldToVariant(dbGrid.Columns.Items[J].Field);
И пишем функцию:
function FieldToVariant(Field:TField):OLEVariant;
begin
Result := "";
case Field.DataType of
ftString, ftFixedChar, ftWideString, ftMemo,
ftFmtMemo: Result := """" + Field.AsString;
ftSmallint, ftInteger, ftWord, ftLargeint, ftAutoInc:
Result := Field.AsInteger;
ftFloat, ftCurrency, ftBCD: Result := Field.AsFloat;
ftBoolean: Result := Field.AsBoolean;
ftDate, ftTime, ftDateTime: Result := Field.AsDateTime;
end
end;
Все заработало.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c