PutRow(Values: Array);
Values. Выгружаемая строка в виде одномерного массива значений.
Метод PutRow выполняет выгрузку строки значений в приемник данных.
Для выгрузки массива строк используйте метод IDtConsumer.Put.
Для выполнения примера предполагается наличие файла «C:\Data_Out.txt». Добавьте ссылки на системные сборки «Dt», «Dal».
Sub UserProc_PutRow;
Var
TextConsumer: IDtTextConsumer;
Fields: IDtFieldDefinitions;
Field: IDtFieldDefinition;
v: Array;
Begin
//Массив экспортируемых значений
v := New Variant[3];
v[0] := "Греча"; v[1] := 10; v[2] := 313.12;
TextConsumer := New DtTextConsumer.Create;
TextConsumer.File := "C:\Data_Out.txt";
TextConsumer.WriteHeader := True;
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.PutRow(v);
TextConsumer.Close;
End Sub UserProc_PutRow;
После выполнения примера строка данных будет выгружена в файл «C:\Data_Out.txt».
См. также: