FieldsFromFile;
Метод FieldsFromFile осуществляет чтение списка полей из файла-источника.
Используется для текстовых, либо Xml источников данных.
Примечание. Данный метод автоматически вызывается при открытии текстового, либо Xml источника данных.
Для выполнения примера предполагается наличие в корневом каталоге диска С файла Data.txt.
Sub UserProc;
Var
TextProvider: IDtTextProvider;
Fields: IDtFieldDefinitions;
Field: IDtFieldDefinition;
v: Array;
i: Integer;
Begin
TextProvider := New DtTextProvider.Create;
TextProvider.File := "c:\Data.txt";
TextProvider.RangeHasHeader := True;
TextProvider.RowDelimiter := #13 + #10; //Возврат каретки + перевод строки
TextProvider.DelimitedColumnDelimiter := #9; //Клавиша TAB
TextProvider.FieldsFromFile;
Fields := TextProvider.Fields;
For Each Field In Fields Do
Debug.Write(Field.Name + " ");
End For;
Debug.WriteLine("");
TextProvider.Open;
While Not TextProvider.Eof Do
TextProvider.Fetch(v);
For i := 0 To v.Length - 1 Do
Debug.Write(v[i] + " ");
End For;
Debug.WriteLine("");
End While;
TextProvider.Close;
End Sub UserProc;
После выполнения примера будет создан новый источник данных, осуществляющий импорт данных из текстового файла. При импорте в качестве разделителя строк будет использоваться сочетание Возврат каретки+Перевод строки, в качестве разделителя полей - Знак табуляции. Перед открытием источника из его первой строки будут считаны и выведены в консоль наименования полей. Затем будут считаны и выведены в консоль среды разработки значения всех записей.
См. также: