скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Конвертируем таблицу в Excel c использованием TExcelApplication




// Переписываем

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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook