XProfan

Class Test = Test@,
hLV&,
gethdl@

Proc Test.Test

    Parameters hwnd&,x%
    Declare n%,h&
    .hLV& = Create("GridBox",hwnd&,"test;0;80;Test;0;80",0,0,x%,400,100)
    h& = .hlv&

    WhileLoop 4

        AddString((h&),"Test|" + Str$(&Loop))so würde es funktionieren
        hier wird .hLV& nicht erkannt und stattdessen eine Fehlermeldung ausgegeben:
        Bereichsvariable ist nicht dimensioniert
        das passiert aber nur innerhalbeiner Schleife!
        AddString((.hLV&),"Test|" + Str$(&Loop))

    Wend

EndProc

Proc Test.gethdl

    Return .hLV&

EndProc

Cls
Declare AA#[5]
Var hTabCtrl& = Create("TabCtrl",%hwnd,"Test",0,24,Width(%hwnd),Height(%hwnd) - 24)

WhileLoop 7

    InsertTab(hTabCtrl&,&Loop,"Test" +Str$(&Loop))

Wend

WhileLoop 0,2

    AA#[&Loop] = New(Test,hTabCtrl&,(104 * &Loop + 26))

Wend

WhileLoop 0,2

    Print AA#[&Loop].gethdl()

Wend

WaitInput

Declare l%

WhileLoop 0,2

    l% =&Loop
    AA#[l%] = New(Test,hTabCtrl&,(104 * &Loop + 26))

W

Class b = s1$(5),s2$(5)
Declare x#,z$
Dim x#,b
Cls

With x#

    .s1$ = "Test"
    Print .s1$
    Input .s2$
    Print .s2$

EndWith

nput