Discussion :

[19cmos83]

Bonjour,

j'ai une petite erreur dans l'accès à un getter.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
CLASS test DEFINITION.

  PUBLIC SECTION.
    METHODS :
          get_taille RETURNING value(param) TYPE i,
          set_taille IMPORTING value(param) TYPE i.

  PRIVATE SECTION.
    DATA taille TYPE i.
ENDCLASS.                    "test DEFINITION

*----------------------------------------------------------------------*
*       CLASS test IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS test IMPLEMENTATION.
  METHOD get_taille.
    param = taille.
  ENDMETHOD.                    "get_taille
  METHOD set_taille.
    taille = param.
  ENDMETHOD.                    "set_taille
ENDCLASS.                    "test IMPLEMENTATION

START-OF-SELECTION.

  DATA obj TYPE REF TO test.
  DATA res TYPE I.
  
  CREATE OBJECT obj.
  
  obj->set_taille( 4 ).
  res = obj->get_taille().
  
  WRITE :/ 'Valeur get_taille : ', res.

Je ne comprends pas trop, pourquoi il ne m'exécute pas ce code.

Avez-vous une idée ?
Merci.

[19cmos83]

Bon, bun j'ai trouvé la syntaxe.

Il ne faut surtout pas oublier les espaces entre les parenthèses dans les appelles des méthodes (ici accesseurs), et aussi un petit truc sympa pour plus de visibilité, le : me->[attribut_instance_en_cours].

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
CLASS test DEFINITION.

  PUBLIC SECTION.
    METHODS :
          get_taille RETURNING value(param) TYPE i,
          set_taille IMPORTING value(param) TYPE i.

  PRIVATE SECTION.
    DATA taille TYPE i.
ENDCLASS.                    "test DEFINITION

*----------------------------------------------------------------------*
*       CLASS test IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS test IMPLEMENTATION.
  METHOD get_taille.
    param = me->taille.
  ENDMETHOD.                    "get_taille
  METHOD set_taille.
    me->taille = param.
  ENDMETHOD.                    "set_taille
ENDCLASS.                    "test IMPLEMENTATION

START-OF-SELECTION.

  DATA obj TYPE REF TO test.
  DATA res TYPE I.
  
  CREATE OBJECT obj.
  
  obj->set_taille( 4 ).
  res = obj->get_taille( ).
  
  WRITE :/ 'Valeur get_taille : ', res.