Add: IDtFieldDefinition;
The Add method adds a new data provider or consumer field and returns its description.
Executing the example requires the Data_Out.txt file in the disk C root directory.
Sub Main;
Var
TextConsumer: IDtTextConsumer;
Fields: IDtFieldDefinitions;
Field: IDtFieldDefinition;
v: Array;
RowCount: Integer = 1000;
Begin
//Array of exported values
v := New Variant[3, RowCount];
v[0, 0] := //Values...
//Export in text file
TextConsumer := New DtTextConsumer.Create;
TextConsumer.File := "c:\Data_Out.txt";
TextConsumer.WriteHeader := True;
TextConsumer.RowDelimiter := #13 + #10; //Return carriage + transfer row
TextConsumer.DelimitedColumnDelimiter := #9; //The TAB key
Fields := TextConsumer.Fields;
Field := Fields.Add;
Field.DataType := DbDataType.String;
Field.Name := "Name";
Field := Fields.Add;
Field.DataType := DbDataType.Integer;
Field.Name := "Identifier";
Field := Fields.Add;
Field.DataType := DbDataType.Float;
Field.Name := "Value";
TextConsumer.Open;
TextConsumer.Clear;
TextConsumer.Put(v);
TextConsumer.Close
End Sub Main;
After executing the example a new data consumer, that exports data in text file, is created. During export, the Carriage Return+Line Feed combination is used as a row delimiter, and the Tabulation character - as a column delimiter. Into the first file row field names are written. Next the specified values array is exported into the file.
See also: