ITabRange.FormattedText

Синтаксис Fore

FormattedText: String;

Синтаксис Fore.NET

FormattedText: String;

Описание

Свойство FormattedText возвращает значение ячейки с учетом заданного формата отображения данных.

Пример

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

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        TSheet: ITabSheet;
        TRange: ITabRange;
        s: String;
    Begin
        TSheet := UiTabSheet1.TabSheet;
        TRange := TSheet.Cell(0, 0);
        TRange.Style.CustomFormat := "0,00;" + #34 + "минус " + #34 + "0,00";
        TRange.Value := -10;
        s := TRange.FormattedText;
        Debug.WriteLine(s);
    End Sub Button1OnClick;

При нажатии на кнопку для ячейки «А0» будет установлен числовой формат. Для отрицательных чисел будет задан следующий способ отображения: «минус 1234,58». В переменной «s» будет содержаться отформатированное значение - «минус 10,00».

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBoxNet и компонента UiTabSheetNet с наименованием «UiTabSheetNet1». «UiTabSheetNet1» является источником данных для TabSheetBoxNet.

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        TSheet: ITabSheet;
        TRange: ITabRange;
        s: String;
    Begin
        TSheet := UiTabSheetNet1.TabSheetUi.TabSheet;
        TRange := TSheet.Cell[0, 0];
        TRange.Style.CustomFormat := "0,00;\u0022минус \u0022 0,00";
        TRange.Value := -10;
        s := TRange.FormattedText;
        Debug.WriteLine(s);
    End Sub;

См. также: