Działania na tablicach > DeleteItem - polecenie

Drukuj

DeleteItem - polecenie symp

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

String

Tbl

Nazwa tablicy zmiennych dowolnego typu.

Int

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