SAIL - Wielkość tablicy

shoter pisze:Zarzuce kodem, może się komuś przyda.

Funkcja zwraca nam wielkość tablicy

Kod:

Function rozmiar_tablicy( _tablica );
var _x;
begin
Result := 0;
     for _x in _tablica do
     begin
     Result := Result + 1;
     end;
end;

dla danych

Kod:

[ [1,2,3] , [1] , [123] , [5] , ['Strzelam'] ];

zwraca

Kod:

5

Author: shoter