Delphi-Help

Описание

1. function Length ( const SourceString : string ) : Integer;

2. function Length ( const SourceArray : array ) : Integer;

Функция Length возвращает или число символов в SourceString, или число элементов в SourceArray.

Пример кода

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
// Определение длины открытого массива
SetLength(openArray, 17);

// Показ длины массивов
ShowMessage('Длина openArray = '+IntToStr(Length(openArray)));
ShowMessage('Длина fixedArray = '+IntToStr(Length(fixedArray)));
ShowMessage('Длина multiArray = '+IntToStr(Length(multiArray)));

// Применение к строкам
shortStr := 'ABCDEFGH';
longStr  := '12345678901234567890';
ShowMessage('Длина shortStr = '+IntToStr(Length(shortStr)));
ShowMessage('Длина longStr = '+IntToStr(Length(longStr)));

// Посимвольное отображение всех символов короткой строки
for i := 1 to Length(shortStr) do
ShowMessage('Символ '+IntToStr(i)+' = '+shortStr[i]);
end;

Длина openArray = 17
Длина fixedArray = 3
Длина multiArray = 3
Длина shortStr = 8
Длина longStr = 20
Символ 1 = A
Символ 2 = B
Символ 3 = C
Символ 4 = D
Символ 5 = E
Символ 6 = F
Символ 7 = G
Символ 8 = H

Примечание

Массивы, по умолчанию, начинаются с индекса = 0. Так что длина такого массива на 1 меньше чем самый высокий индекс.