Клуб программистов

    Delphi функция Length передаёт количество символов в массиве или строке. Можно назвать этот результат длиной строки или массива. Размер строки является целым числом ( Integer )

var
   openArray : array of char;
   fixedArray : array[2..4] of Integer;
   multiArray : array[2..4, 1..9] of Integer;
   shortStr : shortstring;
   longStr : string;
   i : Integer;

begin
   // Define the length of the open array
   SetLength(openArray, 17);

   // Show the length of the arrays
   ShowMessage('Length of openArray = '+IntToStr(Length(openArray)));
   ShowMessage('Length of fixedArray = '+IntToStr(Length(fixedArray)));
   ShowMessage('Length of multiArray = '+IntToStr(Length(multiArray)));

   // Assign to the strings
   shortStr := 'ABCDEFGH';
   longStr := '12345678901234567890';
   ShowMessage('Length of shortStr = '+IntToStr(Length(shortStr)));
   ShowMessage('Length of longStr = '+IntToStr(Length(longStr)));

   // Display one letter at a time from the short string
   for i := 1 to Length(shortStr) do
      ShowMessage('Letter '+IntToStr(i)+' = '+shortStr[i]);
end;

Определени длины строки и массива :

Length of openArray = 17
Length of fixedArray = 3
Length of multiArray = 3
Length of shortStr = 8
Length of longStr = 20
Letter 1 = A
Letter 2 = B
Letter 3 = C
Letter 4 = D
Letter 5 = E
Letter 6 = F
Letter 7 = G
Letter 8 = H