Hallo, wieder mal ich. Diesmal soll ich eine Klasse „Text“ mit der Methode „Ausgabe“. Und einen beliebigen Text aus. Danach legen Sie 5 "Objekte dieser Klasse an, lassen den Text der Methode „Ausgabe“ "ausgeben und löschen die Objekte wieder!
CLASS text DEFINITION.
PUBLIC SECTION.
METHODS:
ausgabe IMPORTING lv_nr TYPE n
lv_nme TYPE c,
write_ausgabe.
PRIVATE SECTION.
Data: lv_knr(5) TYPE n,
lv_name(15) TYPE c.
ENDCLASS.
CLASS text IMPLEMENTATION.
METHOD: ausgabe.
lv_knr = lv_nr.
lv_name = lv_nme.
ENDMETHOD.
data:
lr_text type ref to text.
do 5 times. "5mal aufrufen
create object lr_text. "Objekt anlegen
lr_text->ausgabe( .... ). "Ausgabe aufrufen
clear lr_text. "Objekt "löschen"
enddo.
lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
Kleiner Tipp:
Gewöhn dir an deine Klassen usw. mit einem Präfix oder ähnlichem zu versehen. TEXT ist schon "gefährlich" nahe an einem ABAP-Schlüsselwort. Der Compiler lässt es zwar zu, aber lesbar ist was anderes.
Und falls Ralf das Lesen sollte:
Nein, ich hab hier weder die ungarische noch sonst irgendeine Notation empfohlen, sondern nur auf die damit verbundene, bessere Unterscheidbarkeit zwischen Schlüsselwort, Variable, Objekt, Klasse usw. hingewiesen.
lg ADT
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.