ITabRange.PasteFromStreamEx

Синтаксис

PasteFromStreamEx(

SrcStream: IIOStream;

PasteMode: TabPasteMode;

[SkipEmptyCells: Boolean = False;]

[Transpose: Boolean = False]);

Параметры

SrcStream. Поток, из которого осуществляется вставка данных.

PasteMode. Режим вставки.

SkipEmptyCells. Признак пропуска ячеек с пустыми значениями.

Transpose. Признак необходимости транспонировать данные при вставке.

Описание

Метод PasteFromStreamEx вставляет в текущий диапазон данные из указанного потока в соответствии с заданными параметрами вставки.

Комментарии

Перед выполнением метода курсор в потоке должен быть установлен в начальную позицию: IIOStream.Position=0. Данные в поток должны быть скопированы с помощью метода ITabRange.CopyToStream.

Если вставляемые данные содержат ячейки с пустым значением и параметру SkipEmptyCells установлено значение True, то для этих ячеек не будут вставлены формулы, оформление, комментарии.

Используется только в настольном приложении.

Пример

Для выполнения примера предполагается наличие в репозитории формы, расположенных на ней двух кнопок с наименованиями «Button1» и «Button2», компонента UiTabSheet с наименованием «UiTabSheet1» и каких-либо визуальных компонентов, для которых «UiTabSheet1» установлен в качестве источника данных.

Class TESTForm: Form
    UiTabSheet1: UiTabSheet;
    TabSheetBox1: TabSheetBox;
    Button1: Button;
    Button2: Button;
    MStream: IMemoryStream;
    TSheet: ITabSheet;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        TSheet := UiTabSheet1.TabSheet;
        MStream := New MemoryStream.Create;
    End Sub TESTFormOnCreate;

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        MStream.Clear;
        TSheet.View.Selection.Range.CopyToStream(MStream);
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        If MStream.Size > 0 Then
            MStream.Position := 0;
            TSheet.View.Selection.Range.PasteFromStreamEx(MStream, TabPasteMode.Values, True, True);
        End If;
    End Sub Button2OnClick;
End Class TESTForm;

При запуске формы будет инициализирован поток в памяти, который будет использоваться для обмена данными. При нажатии на кнопку «Button1» в поток будут скопированы данные выделенного в текущий момент диапазона таблицы. При нажатии на кнопку «Button2» в текущий выделенный диапазон осуществляется специальная вставка: вставляются только значения диапазона, диапазон будет транспонирован, оформление, комментарии и формулы пустых ячеек пропускаются.

См. также:

ITabRange