home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / grdlagen / simu_dem.txt < prev   
Encoding:
Text File  |  1991-01-15  |  1.7 KB  |  51 lines
  1.      1  COMMENT Beispiel: Vererbung und Parametrierung;
  2.      2  BEGIN
  3.      3      CLASS eine_klasse(p,v);
  4.      4          CHARACTER ARRAY p;
  5.      5          INTEGER v;
  6.      6          VIRTUAL: PROCEDURE anzeigen;
  7.      7      BEGIN
  8.      8          TEXT ARRAY dokument(-1:IF v<5 THEN 5 ELSE v);
  9.      9          SHORT INTEGER zeiger;
  10.     10          BOOLEAN ist_leer;
  11.     11          PROCEDURE anzeigen(n);
  12.     12              VALUE n; INTEGER n;
  13.     13          BEGIN
  14.     14              COMMENT Hier Prozedurrumpf...;
  15.     15          END;
  16.     16          COMMENT Weitere Methoden folgen.....;
  17.     17          COMMENT Initialisierungsroutine: ;
  18.     18              zeiger := -1;    ist_leer := TRUE
  19.     19      END;
  20.     20
  21.     21      eine_klasse CLASS eine_unterklasse;
  22.     22      BEGIN
  23.     23          REF(eine_klasse) zeiger;
  24.     24          REF(eine_klasse) kopf;
  25.     25          PROCEDURE anzeigen(n); VALUE n;
  26.     26              INTEGER n; COMMENT Neudefinition...;
  27.     27          BEGIN
  28.     28              COMMENT Hier Prozedurrumpf...;
  29.     29          END;
  30.     30          COMMENT Initialisierungsroutine: ;
  31.     31          zeiger :- kopf :- NONE
  32.     32      END;
  33.     33
  34.     34
  35.     35      REF(eine_unterklasse) ein_objekt;
  36.     36      INTEGER bounds;
  37.     37      OUTTEXT("Bitte Arraygröße eingeben:");
  38.     38      OUTIMAGE;
  39.     39      bounds := ININT;
  40.     40      BEGIN
  41.     41          CHARACTER ARRAY a(0:bounds);
  42.     42          REF(eine_klasse) k;
  43.     43          SHORT INTEGER i;
  44.     44          ein_objekt :- NEW eine_unterklasse(a,bounds);
  45.     45          k :- ein_objekt.zeiger;
  46.     46          i := ein_objekt QUA eine_klasse.zeiger;
  47.     47          COMMENT ... weitere Code ....;
  48.     48      END
  49.     49  END;
  50.     50
  51.