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

    procedure pTest
        Integer iLcv iMax iRowSize
        string sValue
        //
        Get item_count to iMax
        Get Line_Size to iRowSize
        //
        Move ((iMax/iRowSize)-1) to iMax // iMax enthält die Anzahl der Zeilen 0-based
        For iLcv from 0 to iMax
            If (Select_State(Self,iLcv*iRowSize+0)) Begin // +0 bedeutet die Checkbox ist der ersten Spalte des Grid
                Get value item (iLcv*iRowSize+2) to sValue // wir holen uns hier den Wert der dritten Spalte
                showln sValue
            End
        Loop
    End_Procedure