IDtOdsProvider.File

Копировать пример

Sub UserProc;
Var
    OdsProvider: IDtOdsProvider;
    Fields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    FieldName: String;
    v: Array;
    i: Integer;
Begin
    OdsProvider := New DtOdsProvider.Create;
    OdsProvider.File := "d:\Work\data.ods";
    OdsProvider.Sheet := "Лист1";
    OdsProvider.HasHeader := True;
    OdsProvider.HeaderRow := 0;
    OdsProvider.DataRow := 1;
    OdsProvider.Open;
    Fields := OdsProvider.Fields;
    Debug.WriteLine("Количество полей: " + Fields.Count.ToString);
    FieldName := "Наименования полей: ";
    // Формируем строку с наименованиями полей
    For Each Field In Fields Do
        FieldName := FieldName + Field.Name + "; "
    End For;
    Debug.WriteLine(FieldName);
    Debug.WriteLine("Данные:");
    While Not OdsProvider.Eof Do
        OdsProvider.Fetch(v);
        For i := 0 To v.Length - 1 Do
            Debug.Write(v[i] + " ");
        End For;
        Debug.WriteLine("");
    End While;
    OdsProvider.Close;
End Sub UserProc;