Arrays und Tbrowse [erledigt]

[messing]

Servus,

habe ein zweidim. Array!

Läßt sich der Spaltenaufbau in einer FOR NEXT Schleife reallisieren / automatisch an die vorhandenen Spalten?

Code: Alles auswählen

for x=1 to len(aArray[1])
oTbrowse:AddColumn ( TBColumn():new(  "Spalte "+Alltrim(str(x)), {|| aArray[nRecno,x] } ) )
next

So bekomme ich eine Fehlermeldung.
bei

Code: Alles auswählen

oTbrowse:AddColumn ( TBColumn():new(  "Spalte "+Alltrim(str(x)), {|| aArray[nRecno,1] } ) )

gibt es keine Fehlermeldung.
sobald ich hinter nRecno das x aus der FOR NEXT Schleife einsetze gibt es einen Fehler bei der Arrayindizierung.

[AUGE_OHR]

Code: Alles auswählen

for x=1 to len(aArray[1])
oTbrowse:AddColumn ( TBColumn():new(  "Spalte "+Alltrim(str(x)), {|| aArray[nRecno,x] } ) )
next

ich tippe mal auf das "bekannte" Codeblock Problem ... du muss es zur Laufzeit "auflösen" ...

btw. erzeuge zuerst das Columne Object und versehe es mit den Eigenschaften (String->Codeblock) vor dem :AddColumn ( oCol )

[CRT]

versuche x als PRIVATE zu deklarieren

[Tom]

versuche x als PRIVATE zu deklarieren

Das hülfe nichts. x steht in dem Moment, in dem der Codeblock der Column evaluiert wird, auf Len(aArray)+1. Deshalb gibt es einen "Fehler bei der Arrayindizierung". Alle Spalten zeigen auf dieselbe Arrayspalte, nämlich eine, die es nicht gibt.

So - in etwa - funktioniert es (ungetestet, mag noch ein Syntaxfehler drin sein):

Code: Alles auswählen

bColBlock := &("{||aArray[nRecNo,"+Trim(Str(x))+"]}")
oTbrowse:AddColumn ( TBColumn():new(  "Spalte "+Alltrim(str(x)), bColBlock ) )

Dadurch enhält der Codeblock den zur Iterationszeit richtigen Wert von "x", da der Codeblock über den Makroexpander aus dem Text zusammengesetzt wird, der nicht mehr auf "x" verweist, sondern "x" auflöst.

Edit: "nRecNo" muss hierfür PRIVATE sein oder analog zu "x" behandelt werden. Sonst knallt es mit "unbekannte Variable".