Działania na tablicach > InsertItem - polecenie

Drukuj

InsertItem - polecenie symp

Polecenie dodaje do tablicy pusty element na pozycji określonej argumentem indeks. Wszystkie istniejące elementy o indeksie większym lub równym od podanego są przesuwane - ich indeksy są zwiększane o 1.

 

Składnia

Int InsertItem String Tbl, Int indeks

 

Argumenty

Typ

Nazwa

Opis

String

Tbl

Nazwa tablicy zmiennych dowolnego typu.

Int

indeks

Numer elementu tablicy (indeks).

 

Wartość zwracana

Nowy rozmiar (liczba elementów) tablicy, po dodaniu elementu.

 

Przykład

//Zdefiniowanie i wypełnienie tablicy
Record defr
String kol1[100]
String kol2[100]
String kol3[100]
String kol4[100]
EndRec
defr Tbl(4)
Tbl(1).kol1 = " 1"
Tbl(1).kol2 = "Nazwa 1"
Tbl(1).kol3 = "Opis 1"
Tbl(1).kol4 = "Uwaga 1"
Tbl(2).kol1 = " 2"
Tbl(2).kol2 = "Nazwa 2"
Tbl(2).kol3 = "Opis 2"
Tbl(2).kol4 = "Uwaga 2"
Tbl(3).kol1 = " 3"
Tbl(3).kol2 = "Nazwa 3"
Tbl(3).kol3 = "Opis 3"
Tbl(3).kol4 = "Uwaga 3"
Tbl(4).kol1 = " 4"
Tbl(4).kol2 = "Nazwa 4"
Tbl(4).kol3 = "Opis 4"
Tbl(4).kol4 = "Uwaga 4"
//Usunięcie elementu tablicy
Int Indeks = 3
DeleteItem (Tbl, Indeks)
//Dodanie dwóch pustych elementów tablicy po elemencie nr 2
InsertItem (Tbl, Indeks)
InsertItem (Tbl, Indeks)
//Wyświetlenie okna z tablicą
Int Kol(4) = 50+0x2000, 100+0x1000, 100, 100
Form "Tablica po przekształceniach", 400, 300
Text "Skutek użycia kolejno poleceń DeleteItem i InsertItem", 20,10,460,24
Text "podświetlony ostatnio dodany element tablicy", 20,30,460,24
RecList "Numer|Nazwa||Uwagi", Tbl, Indeks, 20, 60, 350, 150, Kol
Button "O&K", 150, 230, 100, 24, -1
ExecForm
Error ""