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:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

Object V is a cObject //
    Property integer[] piaListe
    procedure FuelleMich
        integer[] iaTemp
        integer iLcv
        For iLcv from 1 to 1000
            move iLcv to iaTemp[SizeOfArray(iaTemp)]
        Loop
        set piaListe to iaTemp
    End_procedure
    procedure ZeigeMich
        integer[] iaTemp
        integer iLcv
        For iLcv from 0 to [SizeOfArray(iaTemp)-1]
            showln iaTemp[iLcv]
        Loop
        set piaListe to iaTemp
    End_procedure

    // Array ändern und speichern im View Prop
    Procedure MacheWas
        integer[] iaTemp
        integer iLcv
        get piaListe to iaTemp
        for iLcv from 0 to (sizeofarray(iaTemp)-1)
            move (iaTemp[iLcv]*2) to iaTemp[iLcv]
        Loop
        set piaListe to iaTemp
    End_procedure

    // Beim deaktivieren des Views das Property leeren und somit Speicher freigeben
    Procedure deactivating
        integer[] iaTemp
        get piaListe to iaTemp
        move (resizeArray(iaTemp,0)) to iaTemp // Schwachsinn, aber so leer man offiziell einen array. Man könnte den "set" unten direkt machen
        set piaListe to iaTemp
        Forward send deactivating
    End_procedure
    Procedure Test
       send FuelleMich
       send ZeigeMich
       send MachWas
       send zeigeMich
    End_procedure
End_Object

send Test to V

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Procedure DoExportLanguage
    String sFile
    Handle hDlg hoDD
    Boolean bOk
    Get create U_SaveAsDialog to hDlg
    Set Filter_String of hDlg to "xml|*.xml"
    Set file_Title of hDlg to "language.xml"
    Set NoChangeDir_State of hDlg to True
    Get Show_Dialog of hDlg to bOk
    If (bOk) Begin
        Get file_name of hDlg to sFile
        Send Destroy of hDlg
        Get Create U_Language_DataDictionary to hoDD
        Send DoExportLanguage_XML of hoDD sFile
        Send Destroy of hoDD
    End

End_Procedure