Для разработчиков > Серверные скрипты > Описание функций > Разное

"Для разработчиков", "Серверные скрипты", "Описание функций", "Разное", "SetArrayLength".

Указать размер динамического одномерного массива.

Синтаксис

procedure SetArrayLength(var Arr: <dynamic array>; iNewLength: integer);

Параметры и возвращаемые значения

Параметр	Тип	Значение
Arr	array of...	одномерный массив любого типа;
iNewLength	integer	количество элементов массива.

Пример

Нумерация элементов массива будет от 0 до iNewLength - 1. Программа подсчитывает количество уникальных слов в тексте и выводит их в консоль:

const
  ORIGINAL_TEXT = 'Take me, I''m alive, never was a girl with a wicked mind'#13#10 +
                  'But everything looks better, when the sun goes down'#13#10 +
                  'I had everything, opportunities for eternity and I'#13#10 +
                  'could belong to the night'#13#10 +
                  'Your eyes, your eyes, I can see in your eyes, your eyes';
var
  sData, s: string;
  iCount, i: integer;
  Arr: array of string;
  bAddFlag: boolean;
begin
  mLogScript(ORIGINAL_TEXT, '');

  sData := ReplaceString(LowerCase(ORIGINAL_TEXT), CRLF, ' ', true, false);
  sData := ReplaceString(sData, ',', '', true, false);
  
  iCount := 0;
  SetArrayLength(Arr, 0);
  
    while length(sData) > 0 do begin
      s := Fetch(sData, ' ');
      bAddFlag := true;

        if iCount > 0 then 
          for i := 0 to iCount - 1 do
            if Arr[i] = s then begin
              bAddFlag := false;
              break;
            end;
            
        if bAddFlag then begin
          inc(iCount);
          SetArrayLength(Arr, iCount);
          Arr[iCount - 1] := s;
        end;
    end;
    
  mLogScript('Unical words list:', '');  
  s := '';
  
    for i := 0 to iCount - 1 do begin
      s := s + Arr[i] + ' ';
      
        if (i + 1) mod 10 = 0 then s := s + CRLF;
    end;  
      
  mLogScript(s, 'Total ' + IntToStr(iCount) + ' words');      
end.