Werte zu Array hinzufügen

[Gravedigger]

Hallo,

wie kann ich einem Array einen Wert hinzufügen?
AppendToTextList -> erfolglos
array1 = array1 + wert -> erfolglos

Oder habe ich etwas falsch gemacht?


Danke

[Axel]

Hi,

ist das ein dynamisches Array oder ein fest dimensioniertes ?

bei einem dynamischen geht's so

maxanzahl = Ubound(array)
Redim Preserve array(maxanzahl + 1)
array(maxanzahl+1) = wert

Bei einem festdimensionierten hast du keine Chance, wenn das Array "voll belegt ist".

Axel

[Gravedigger]

Eigentlich dynamisch, ich probier mal deinen Tipp.

[harkpabst_meliantrop]

Etwas bequemer geht es, wenn man mit Listen statt mit Arrays arbeitet. Die sollen aber dem Vernehmen nach recht langsamer sein.

[Gravedigger]

Funzt nicht. Fehler: Illegal Redim

Dim zahl As Integer
zahl = Ubound(viewdoc.fdAppl)
Redim Preserve viewdoc.fdAppl(zahl + 1)
viewdoc.fdAppl(zahl + 1) = appl

[Axel]

Hi,

so kann das auch nicht gehen. Du hättest dazuschreiben sollen, dass du in ein Feld den Wert hinzufügen möchtest.

Das sollte so gehen:

...
Set item = viewdoc.GetFirstItem( "viewdoc" )
Call item.AppendToTextList( "neuer Wert" )
...

[Gravedigger]

Danke. Es funktioniert.