Danke für die Aufmerksamkeit, ich wollte euch mit dem Kleinkram nicht lange
aufhalten.
if rs.RecordCount > 0 then 'Daten kommen aus der Datenbank
Redim FarbStyles(CountFields(tmpFarben,";") *2 + 2) 'für jede Farbe 2
Styles + 2 Styles für Löschfarbe weiß
n = 0
for i = 1 to CountFields(tmpFarben,";")
tmpEinzelfarbe = NthField(tmpFarben,";",i)
'box "i: " + str(i) + ", tmpEinzelfarbe: " + tmpEinzelfarbe
n= n + 1
FarbStyles(n) = new StyleGridStyle("Verdana",10) 'StyleGrid von
einhugur
FarbStyles(n).FontName = "Verdana"
FarbStyles(n).FontSize = 10
FarbStyles(n).FontBold = false
FarbStyles(n).BackColor =
rgb(val(NthField(tmpEinzelfarbe,",",1)),val(NthField(tmpEinzelfarbe,",",2)),val(NthField(tmpEinzelfarbe,",",3)))
FarbStyles(n).Mutate
...
next
Wenn ich den gesamten Code in eine Routine im Fenster verlege, funktioniert
er einwandfrei!
Gruß, Christian Hahn.
----- Original Message -----
From: "Maximilian Tyrtania" <[email protected]>
To: "REALbasic NUG German" <[email protected]>
Sent: Saturday, January 02, 2010 7:38 PM
Subject: Re: Erreichbarkeit eines Arrays in einem Modul
Hi,
was ich in dem code vermisse, ist die Stelle, an der Du dem Array Elemente
hinzufügst (FarbStyles.append someFarbStyle). So wie Du das schilderst hast
Du halt einfach ein leeres FarbStyles-Array. Und wo hast Du diese Zeile
Ubound(FarbStyles) = 8
zu stehen? Hat der Compiler Dir das durchgehen lassen? -1=8 ?
Schönes Neues,
Max
Am 02.01.2010 um 19:18 schrieb Christian Hahn:
Wenn ich die Variable FarbStyles() in der Property-Pane dimensioniere
FarbStyles(8),
dann ist es auch aus dem Fenster erreichbar.
Aber ich weiß doch nicht vorher, wie groß mein Array werden wird.
----- Original Message ----- From: "Christian Hahn"
<[email protected]>
To: "REALbasic NUG German" <[email protected]>
Sent: Saturday, January 02, 2010 6:50 PM
Subject: Erreichbarkeit eines Arrays in einem Modul
Hallo, ich wünsche uns ein gutes neues Jahr!
Und schon geht der Kleinkram weiter:
In einem Modul habe ich ein Array FarbStyles gebildet,
Ubound(FarbStyles) = 8
Die Variable FarbStyles() As StyleGridStyles ist im Property-Pane als
öffentlich deklariert
und müsste also global sein.
Später will ich in einer Routine in einem Fenster darauf zugreifen,
allerdings gibt mir hier Ubound(FarbStyles) = -1
und es entsteht natürlich ein OutOfBounds-Exeption
Woran kann das liegen bzw. wie ändere ich das?
beste Grüße, Christian Hahn.
Maximilian Tyrtania
[email protected]
