Version 3
ARRAY PICTURE (ArrayName; Größe{; Größe2})
Parameter | Typ | Beschreibung | |
ArrayName | Array | Name des Array | |
Größe | Numerisch | Anzahl der Elemente im Array, oder | |
Anzahl der Reihen, wenn Größe2 angegeben ist | |||
Größe2 | Numerisch | Anzahl der Spalten in zweidimensionalem Array |
Beschreibung
Der Befehl ARRAY PICTURE erstellt und/oder passt ein Array mit Elementen vom Typ Bild im Speicher an.
Der Parameter ArrayName ist der Name des Array.
Der Parameter Größe ist die Anzahl der Elemente im Array.
Der Parameter Größe2 ist optional; ist Größe2 angegeben, wird ein zweidimensionales Array erstellt. In diesem Fall gibt Größe die Anzahl der Reihen und Größe2 die Anzahl der Spalten in jedem Array an. In einem zweidimensionalen Array kann jede Reihe sowohl als Element als auch als Array behandelt werden. So können Sie, während Sie mit der ersten Dimension des Array arbeiten, mit anderen Befehlen ganze Arrays in einem zweidimensionalen Array einfügen oder löschen.
Wenden Sie ARRAY PICTURE auf ein bestehendes Array an, gilt folgendes:
Erweitern Sie die Größe des Array, bleiben die vorhandenen Elemente unverändert, die neuen Elemente werden auf leere Bilder initialisiert.
Verringern Sie die Größe des Array, gehen die letzten aus dem Array gelöschten Elemente verloren.
Beispiele
1. Dieses Beispiel erstellt ein Prozess-Array mit 100 Elementen vom Typ Bild:
ARRAY PICTURE (agValues;100)
2. Dieses Beispiel erstellt ein lokales Array mit 100 Reihen mit 50 Elementen vom Typ Bild:
ARRAY PICTURE ($agValues;100;50)
3. Dieses Beispiel erstellt ein Interprozess-Array mit Elementen vom Typ Bild und lädt jedes Bild in ein Element des Array. Die Größe ist gleich der Anzahl der für die Datenbank verfügbaren 'PICT' Ressources. Der Ressourcenname des Array beginnt mit "User Intf/":
RESOURCE LIST("PICT";$aiResIDs;$asResNames) ARRAY PICTURE (<>agValues;Size of array($aiResIDs)) $vlPictElem:=0 For ($vlElem;1;Size of array(<>agValues)) If ($asResNames="User Intf/@") $vlPictElem:=vlPictElem+1 GET PICTURE RESOURCE("PICT";$aiResIDs{$vlElem};$vgPicture) <>agValues{$vlPictElem}:=$vgPicture End if End for ARRAY PICTURE (<>agValues;$vlPictElem)