SAP 实例 9 Text output

REPORT  demo_show_text.

CLASS demo DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS main.
ENDCLASS.

CLASS demo IMPLEMENTATION.
  METHOD main.
    DATA: text       TYPE REF TO cl_demo_text,
          text_table TYPE cl_demo_text=>t_text,
          text_line  TYPE cl_demo_text=>t_line.

    text = cl_demo_text=>get_handle( ).

    text_line = 'First line of text'.
    text->add_line( text_line ).
    text->add_line( ' ' ).
    DO 10 TIMES.
      CLEAR text_line.
      text_line(3) = sy-index.
      text_line  = |Table line { text_line }|.
      APPEND text_line TO text_table.
    ENDDO.
    text->add_table( text_table ).
    text->add_line( ' ' ).
    text_line = 'Last line of text'.
    text->add_line( text_line ).

    text->display( ).

    text->delete( ).
    text->add_line( 'New text' ).
    text->display( ).

  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  demo=>main( ).

Description

The program uses the methods of the class CL_DEMO_TEXT, which was designed for this purpose. The class encapsulates the usage of a Textedit Control in a dialog window.

Wrapper like this can replace the usage of the statement WRITE for simple text outputs.