IDtConsumer.Put

Синтаксис

Put(Values: Array);

Параметры

Values - двухмерный массив значений, который необходимо записать в приемник данных.

Описание

Метод Put осуществляет запись массива значений в приемник данных.

Пример

Для выполнения примера предполагается наличие в корневом каталоге диска С файла "Data_Out.txt".

Sub Main;

Var

TextConsumer: IDtTextConsumer;

Fields: IDtFieldDefinitions;

Field: IDtFieldDefinition;

v: Array;

Begin

//Массив экспортируемых значений

TextConsumer := New DtTextConsumer.Create;

TextConsumer.File := "с:\Data_Out.txt";

TextConsumer.WriteHeader := True;

TextConsumer.RowDelimiter := #13 + #10; //Возврат каретки + перевод строки

TextConsumer.DelimitedColumnDelimiter := #9; //Клавиша Tab

Fields := TextConsumer.Fields;

Field := Fields.Add;

Field.DataType := DbDataType.String;

Field.Name := "Наименование";

Field := Fields.Add;

Field.DataType := DbDataType.Integer;

Field.Name := "Идентификатор";

Field := Fields.Add;

Field.DataType := DbDataType.Float;

Field.Name := "Значение";

TextConsumer.Open;

TextConsumer.Clear;

TextConsumer.Put(v);

TextConsumer.Close

End Sub Main;

После выполнения примера будет создан новый приемник данных, осуществляющий экспорт данных в текстовый файл. При экспорте в качестве разделителя строк будет использоваться сочетание Возврат каретки+Перевод строки, в качестве разделителя полей - Знак табуляции. В первую строку файла будут записаны наименования полей. Затем в файл будет экспортирован указанный массив значений.

См. также:

IDtConsumer