Działania na tablicach > DeleteItem - polecenie | | Drukuj |
Polecenie usuwa element tablicy o pozycji określonej argumentem indeks. Wszystkie elementy o wyższym indeksie są przesuwane - ich indeks zmniejsza się o 1.
Tablica musi mieć zawsze przynajmniej jeden element, dlatego usunięcie tym poleceniem ostatniego elementu tablicy jest niemożliwe.
Składnia
Int DeleteItem (String Tbl, Int indeks)
Argumenty
Typ |
Nazwa |
Opis |
Tbl |
Nazwa tablicy zmiennych dowolnego typu. |
|
indeks |
Numer elementu tablicy (indeks). |
Wartość zwracana
Nowy rozmiar (liczba elementów) tablicy, po usunięciu 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 ""