//Массив
экспортируемых значенийName: String;
Свойство Name определяет наименование поля источника/приемника данных.
Для выполнения примера предполагается наличие в корневом каталоге диска С файла "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;
После выполнения примера будет создан новый приемник данных, осуществляющий экспорт данных в текстовый файл. При экспорте в качестве разделителя строк будет использоваться сочетание Возврат каретки+Перевод строки, в качестве разделителя полей - Знак табуляции. В первую строку файла будут записаны наименования полей. Затем в файл будет экспортирован указанный массив значений.
См. также: