Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Gravedigger am 23.05.03 - 13:15:08

Titel: Werte zu Array hinzufügen
Beitrag von: Gravedigger am 23.05.03 - 13:15:08

Hallo,

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

Oder habe ich etwas falsch gemacht?


Danke

Titel: Re:Werte zu Array hinzufügen
Beitrag von: Axel am 23.05.03 - 13:28:26

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

Titel: Re:Werte zu Array hinzufügen
Beitrag von: Gravedigger am 23.05.03 - 13:33:11

Eigentlich dynamisch, ich probier mal deinen Tipp.

Titel: Re:Werte zu Array hinzufügen
Beitrag von: harkpabst_meliantrop am 23.05.03 - 13:34:48

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

Titel: Re:Werte zu Array hinzufügen
Beitrag von: Gravedigger am 23.05.03 - 14:36:42

Funzt nicht. Fehler: Illegal Redim

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

Titel: Re:Werte zu Array hinzufügen
Beitrag von: Axel am 23.05.03 - 14:40:43

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" )
...

Titel: Re:Werte zu Array hinzufügen
Beitrag von: Gravedigger am 23.05.03 - 14:49:28

Danke. Es funktioniert.  :D