Utf8ToAnsi(const S: UTF8String): string — преобразует строку формата

UTF-8 к стандратной строке.

WideCharLenToString(Source: PWideChar; SourceLen: Integer): string —

преобразует строку формата Unicode к стандартной строке. Длина исходной строки задается параметром SourceLen.

WideCharLenToStrVar(Source: PWideChar; SourceLen: Integer; var Dest: string) — аналог предыдущей функции — преобразует строку формата Unicode к стандартной строке. Длина исходной строки задается параметром SourceLen, а результат возвращается через параметр Dest.

WideCharToString(Source: PWideChar): string — преобразует последовательность Unicode-символов, завершающуюся символом с кодом нуль, к стандартной строке.

WideCharToStrVar(Source: PWideChar; var Dest: string) — аналог предыдущей функции — преобразует последовательность Unicodeсимволов, завершающуюся символом с кодом нуль, к стандартной строке. Результат возвращается через параметр Dest.

WideStringToUCS4String(const S: WideString): UCS4String —

преобразует строку формата Unicode к строке формата UCS-4.

2.11. Массивы

2.11.1. Объявление массива

Массив — это составной тип данных, состоящий из фиксированного числа элементов одного и того же типа. Для описания массива предназначено словосочетание array of. После слова array в квадратных скобках записываются границы массива, а после слова of — тип элементов массива, например:

type

TStates = array[1..50] of string; TCoordinates = array[1..3] of Integer;

После описания типа можно переходить к определению переменных и типизированных констант:

var

States: TStates; { 50 strings } const

Coordinates: TCoordinates = (10, 20, 5); { 3 integers }

114

Обратите внимание, что инициализация элементов массива происходит в круглых скобках через запятую.

Массив может быть определен и без описания типа:

var

Symbols: array[0..80] of Char; { 81 characters }

Чтобы получить доступ к отдельному элементу массива, нужно в квадратных скобках указать его индекс, например

Symbols[0]

Объявленные выше массивы являются одномерными, так как имеют только один индекс. Одномерные массивы обычно используются для представления линейной последовательности элементов. Если при описании массива задано два индекса, массив называется двумерным, если n индексов — n-мерным. Двумерные массивы используются для представления таблицы, а n-мерные

— для представления пространств. Вот пример объявления таблицы, состоящей из 5 колонок и 20 строк:

var

Table: array[1..5] of array[1..20] of Double;

То же самое можно записать в более компактном виде:

var

Table: array[1..5, 1..20] of Double;

Чтобы получить доступ к отдельному элементу многомерного массива, нужно указать значение каждого индекса, например

Table[2][10]

или в более компактной записи

Table[2, 10]

Эти два способа индексации эквивалентны.

2.11.2. Работа с массивами

Массивы в целом участвуют только в операциях присваивания. При этом все элементы одного массива копируются в другой. Например, если объявлены два массива A и B,

115

var

A, B: array[1..10] of Integer;

то допустим следующий оператор:

A := B;

Оба массива-операнда в левой и правой части оператора присваивания должны быть не просто идентичны по структуре, а описаны с одним и тем же типом, иначе компилятор сообщит об ошибке. Именно поэтому все массивы рекомендуется описывать в секции type.

С элементами массива можно работать, как с обычными переменными. В следующей программе элементы численного массива последовательно вводятся с клавиатуры, а затем суммируются. Результат выводится на экран.

program Console;

{$APPTYPE CONSOLE}

uses SysUtils;

var

A: array[1..5] of Double; Sum: Double;

I: Integer;

begin

for I := 1 to 5 do Readln(A[I]); Sum := 0;

for I := 1 to 5 do Sum := Sum + A[I]; Writeln(Sum);

Writeln('Press Enter to exit...'); Readln;

end.

Для массивов определены две встроенные функции — Low и High. Они получают в качестве своего аргумента имя массива. Функция Low возвращает нижнюю, а High — верхнюю границу этого массива. Например, Low(A) вернет значение 1, а High(A) — 5. Функции Low и High чаще всего используются для указания начального и конечного значений в операторе цикла for. Поэтому вычисление суммы элементов массива A лучше переписать так:

for I := Low(A) to High(A) do Sum := Sum + A[I];

116

В операциях с многомерными массивами циклы for вкладываются друг в друга. Например, для инициализации элементов таблицы, объявленной как

var

Table: array[1..5, 1..20] of Double;

требуются два вложенных цикла for и две целые переменные Col и Row для параметров этих циклов:

for Col := 1 to 5 do for Row := 1 to 20 do

Table[Col, Row] := 0;

2.11.3. Массивы в параметрах процедур и функций

Массивы, как и другие типы данных, могут выступать в качестве параметров процедур и функций. Вот как может выглядеть функция, вычисляющая среднее значение в массиве действительных чисел:

const

Max = 63; type

TStatistics = array [0..Max] of Double;

function Average(const A: TStatistics): Double; var

I: Integer; begin

Result := 0;

for I := Low(A) to High(A) do Result := Result + A[I]; Result := Result / (High(A) - Low(A) + 1);

end;

Функция Average принимает в качестве параметра массив известной размерности. Требование фиксированного размера для массива-параметра часто является чрезмерно сдерживающим фактором. Процедура для нахождения среднего значения должна быть способна работать с массивами произвольной длины. Для этой цели в язык Delphi введены открытые массивы-параметры. Такие массивы были заимствованы разработчиками языка Delphi из языка Modula-2. Открытый массив-параметр описывается с помощью словосочетания array of, при этом границы массива опускаются:

function Average(const A: array of Double): Double; var

I: Integer; begin

Result := 0;

117