Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Length

возвращает количество элементов в массиве или строке

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

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

Описание:

    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