Réitigh i gclár ABAP

AICME A1 SMACHT.
 AN RANNÓG PHOIBLÍ.
 SONRAÍ: uimh1 CINEÁL agus LUACH 100.
 MODHANNA: m1.
 CRÍOCH.
 CLÁR a1 CUR CHUN CINN.
 MODHANNA m1.
 SCRÍOBH: 'a1:', uimhir1.
 CRÍOCH.
 CRÍOCH.
 Aicme b1 SAINMHÍNIÚ Oidhreacht Ó a1.
 AN RANNÓG PHOIBLÍ.
 MODHANNA:m2, m1 ATHSHAINMHÍNIÚ.
 CRÍOCH.
 CLÁR b1 CUR CHUN CINN.
 MODHANNA m1.
 uimhir1 = uimhir1 .
 SCRÍOBH: 'b1:', uimhir1.
 CRÍOCH.
 MODHANNA m2.
 SCRÍOBH: ‘M2 in rang b1’.
 CRÍOCH.
 CRÍOCH.
 START-OF-ROGHNÚ.
 SONRAÍ: CINEÁL Tagartha a1.
 SONRAÍ: b CINEÁL TAIGHDE B1.
 *sonraí: c cineál TAGAIRT C1.
 ********************************************** ************** CRUTHAIGH CUSPÓIR b.
 a = b.  " MODH GALAIR upcasting a->m1( ).
 *cuir glaoch ar MODHANNA a->m2( ).  " ní féidir linn teacht ar na modhanna fo-aicme féin ag baint úsáide as sár-rang tag.
 NUA-LÍNE.
 b?= a.  " MODH CALL réitigh b->m1( ).
 NUA-LÍNE.
 MODH Glaoch b->m2( ).
 ********************************************** *************** " earráid null tag cruthaigh OBJECT a.
 b?= a.  "síos-theilgean fós a glao dumpála a thabhairt MODH B->m1( ).
 ********************************************** *************** CRUTHAIGH CUSPÓIR a.
 Bain triail as.
 b?= a.  "Rinne tú iarracht dumpáil tagartha oibiachta 'NULL' a úsáid CATCH cx_sy_move_cast_error.
 MODH Glaoch b->m1( ).
 CRÍOCH.
 ********************************************** *************** CRUTHAIGH CUSPÓIR a.
 CRUTHAIGH CUSPÓIR b.
 Bain triail as.
 b?= a.
 CATCH cx_sy_move_cast_error.
 MODH Glaoch b->m1( ).
 glaoigh ar MODHANNA b->m2( ).
 CRÍOCH.
 CLASS lcl_shape SAINMHÍNIÚ.
 AN RANNÓG PHOIBLÍ.
 MODHANNA tharraingt.
 CRÍOCH.
 AICME lcl_circle SAINMHÍNIÚ OIDHREACHTA Ó lcl_shape.
 AN RANNÓG PHOIBLÍ.
 MODHANNA: tarraing ATHDHÍNIÚ, calc_area.
 CRÍOCH.
 CLASS lcl_shape CUR I BHFEIDHM.
 MODH tarraing.
 SCRÍOBH :/ 'Ag tarraingt ar aon chruth'.
 CRÍOCH.
 CRÍOCH.
 CLASS lcl_circle CUR I BHFEIDHM.
 MODH tarraing.
 SCRÍOBH :/ 'Cruth sonrach a tharraingt: Ciorcal'.
 CRÍOCH.
 MODHANNA calc_area.
 SCRÍOBH :/ 'Limistéar Crcle = 2iiR'.
 CRÍOCH.
 CRÍOCH.
 START-OF-ROGHNÚ.
 SONRAÍ : o_cir CINEÁL TAGAIRT DO lcl_circle.
 CREATE OBJECT o_cir.
 MODH CALL o_cir->tarraing( ).  " glaonna fo-aicme Tarraing() modh CALL MODH O_cir->calc_area( ).
 ULÍN.
 " --------- Caol teilgthe (Upcast) ---------------" SONRAÍ : o_shp CINEÁL TAGAIRT DO lcl_shape.
 o_shp = o_cir.  " Casta caol (Upcast) MODH CALL o_shp->draw( ).  " glaonna fo-aicme Tarraing ( ) modh " glaoch MODH O_shp->calc_area( ) .  " earráid tiomsaithe ULINE.
 " ---------- Teilgthe Leathanaithe (Downcast) -----------" SONRAÍ : o_cir1 CINEÁL TAGAIRT DO lcl_circle.
 " o_cir1 = o_shp.  " earráid tiomsaithe o_cir1 ?= o_shp.  " Méadú Casta (Downcast) MODH CALL o_cir1->draw( ).  " glaonna fo-aicme Tarraing() modh CALL MODH O_cir1->calc_area( ).
 AICME A1 SMACHT.
 AN RANNÓG PHOIBLÍ.
 SONRAÍ: uimh1 CINEÁL agus LUACH 100.
 MODHANNA: m1.
 CRÍOCH.
 CLÁR a1 CUR CHUN CINN.
 MODHANNA m1.
 SCRÍOBH: 'a1:', uimhir1.
 CRÍOCH.
 CRÍOCH.
 Aicme b1 SAINMHÍNIÚ Oidhreacht Ó a1.
 AN RANNÓG PHOIBLÍ.
 MODHANNA:m2, m1 ATHSHAINMHÍNIÚ.
 CRÍOCH.
 CLÁR b1 CUR CHUN CINN.
 MODHANNA m1.
 uimhir1 = uimhir1 .
 SCRÍOBH: 'b1:', uimhir1.
 CRÍOCH.
 MODHANNA m2.
 SCRÍOBH: ‘M2 in rang b1’.
 CRÍOCH.
 CRÍOCH.
 START-OF-ROGHNÚ.
 SONRAÍ: tuismitheoir CINEÁL TAG A1.
 SONRAÍ: leanbh CINEÁL TAIGHDE b1.
 *sonraí: c cineál TAGAIRT C1.
 ********************************************** ************** CRUTHAIGH CUSPÓIR leanbh.
 tuismitheoir = páiste.  "upcasting MODH CALL tuismitheoir->m1( ).
 MODH Glaoch ar leanbh->m1( ).
 MODH Glaoch ar leanbh->m2( ).
 *cuir glaoch ar MODHANNA a->m2( ).  " ní féidir linn teacht ar na modhanna fo-aicme féin ag baint úsáide as sár-rang tag.
 NUA-LÍNE.
 páiste ?= tuismitheoir.  " down casting MODH CALL páiste->m1( ).
 NUA-LÍNE.
 MODH Glaoch ar leanbh->m2( ).
 ********************************************** **************** *" earráid null tag *cruthaigh OBJECT a.
 *b?= a.  "síos-theilgean fós a dumpáil a thabhairt *call MODHACH b->m1( ).
 ********************************************** **************** * CRUTHAIGH CUSPÓIR a.
 Bain triail as.
 b?= a.  "Rinne tú iarracht dumpáil tagartha oibiachta 'NULL' a úsáid CATCH cx_sy_move_cast_error.
 MODH Glaoch b->m1( ).
 CRÍOCH.
 ********************************************** **************** * CRUTHAIGH CUSPÓIR a.
 CRUTHAIGH CUSPÓIR b.
 Bain triail as.
 b?= a.
 CATCH cx_sy_move_cast_error.
 MODH Glaoch b->m1( ).
 glaoigh ar MODHANNA b->m2( ).
 CRÍOCH.
 ******** Luachanna Uathúla ****************** SONRAÍ : lv_string TYPE string, lv_string2 TYPE string, lv_string_final CINEÁL teaghrán.
 CINEÁLACHA: BEGIN OF ty_sonraí, údarás TYPE c, END OF ty_sonraí.
 SONRAÍ: ls_user TYPE ty_data, ls_user2 TYPE ty_data, lt_user2 CINEÁL TABLE OF ty_data, lt_user CINEÁL TABLE OF ty_data.
 lv_string = 'a,b,c,a'.
 lv_string2 = 'd,b,c,a'.
 SPLIT lv_string AT ', ' INTO TABLE lt_user.
 SPLIT lv_string2 AT ', ' INTO TABLE lt_user2.
 LOOP AT lt_user2 AG SHANNADH FIELD- SYMBOL( ).
 IONSÁIGH INTO TABLE lt_user.
 ENDLOOP.
 SORT lt_user BY údar.
 SCrios DÍOBHÁIL DÚBAILTE Ó lt_user COMPARING auth.
 MÁ sy-subrc = 0.
 LOOP AT lt_user AG SHANNADH FIELD- SYMBOL( ).
 IF lv_string_final IS TÚCHÁN.
 lv_string_críochnaithe = -úth.
 EILE.
 CONCATENATE lv_string_críochnaitheach -auth INTO lv_string_final scartha le ','.
 CRÍOCH.
 ENDLOOP.
 CRÍOCH.

 

Fág tagairt

Úsáideann an suíomh seo Akismet chun spam a laghdú. Foghlaim conas a dhéantar próiseáil ar do chuid tráchta.