DelphiXE10中的数组和字符串处理

# 1. DelphiXE10中数组的定义和基本操作

## 1.1 数组的定义和声明

在DelphiXE10中，数组是一种用来存储多个相同类型数据的容器。可以通过以下方式定义和声明一个数组：

var
  myArray: array[0..4] of Integer;  // 定义一个长度为5的整型数组

上述代码中，我们定义了一个名为`myArray`的数组，该数组可以存储5个整型数据。数组的下标范围为0到4。

## 1.2 数组的初始化和赋值

对于数组的初始化和赋值，我们可以使用循环结构来进行操作，例如：

var
  myArray: array[0..4] of Integer;
  i: Integer;
begin
  for i := 0 to 4 do
  begin
    myArray[i] := i + 1;  // 为数组元素赋值
  end;
end.

上述代码中，我们使用循环结构遍历数组的每个元素，并为其赋予相应的值。

## 1.3 数组的访问和遍历

在DelphiXE10中，我们可以通过下标来访问和修改数组的元素。例如：

var
  myArray: array[0..4] of Integer;
  i: Integer;
begin
  for i := 0 to 4 do
  begin
    myArray[i] := i + 1;  // 为数组元素赋值
  end;

  for i := 0 to 4 do
  begin
    WriteLn(myArray[i]);  // 输出数组元素的值
  end;
end.

上述代码中，我们先使用循环遍历为数组元素赋值，然后再使用循环遍历输出数组元素的值。

通过以上示例，我们了解了DelphiXE10中数组的定义、初始化、赋值和访问的基本操作。在后续章节中，我们将进一步学习数组的高级操作。

# 2. DelphiXE10中数组的高级操作
### 2.1 动态数组的使用
在DelphiXE10中，除了静态数组，还可以使用动态数组来存储和操作数据。动态数组的长度是可以动态改变的，这给程序的设计和开发带来了更大的灵活性。

#### 定义和声明动态数组
使用动态数组需要用到`Array of`关键词，具体的语法如下：

type
  TMyArray = array of Integer;

上述代码定义了一个名为TMyArray的动态数组，元素类型为Integer。

#### 动态数组的初始化和赋值
动态数组可以通过使用SetLength函数来初始化和分配内存。SetLength函数接受两个参数，第一个参数是要初始化的数组，第二个参数是要分配的元素个数。例如：

var
  myArray: TMyArray;
begin
  SetLength(myArray, 5);
end;

上述代码初始化了一个长度为5的动态数组myArray。

动态数组的赋值和访问也与静态数组类似：

myArray[0] := 1;
myArray[1] := 2;
myArray[2] := 3;

#### 动态数组的操作
动态数组还支持常见的数组操作，例如插入元素、删除元素和修改元素等。可以使用Insert、Delete和修改数组元素的方式来完成这些操作。

// 插入元素
Insert(5, myArray, 2); // 在索引为2的位置插入元素5

// 删除元素
Delete(myArray, 2, 1); // 删除索引为2的元素

// 修改元素
myArray[0] := 10;

### 2.2 多维数组的定义和操作
除了一维数组，DelphiXE10还支持多维数组的定义和操作。多维数组可以存储更复杂的数据结构，常用于表示矩阵、表格等。

#### 定义和声明多维数组
多维数组的定义和声明方式与一维数组类似，只需要在数组类型后面添加方括号即可。例如，定义一个二维整型数组：

type
  TMyMatrix = array of array of Integer;

上述代码定义了一个名为TMyMatrix的二维动态数组，元素类型为Integer。

#### 多维数组的初始化和赋值
多维数组可以通过嵌套的方式进行初始化和赋值。先分配每一维的长度，再进行具体元素的赋值。例如：

var
  myMatrix: TMyMatrix;
  i, j: Integer;
begin
  SetLength(myMatrix, 3); // 第一维长度为3

  for i := 0 to 2 do
  begin
    SetLength(myMatrix[i], 4); // 第二维长度为4

    for j := 0 to 3 do
    begin
      myMatrix[i][j] := i + j; // 赋值
    end;
  end;
end;

上述代码初始化了一个3行4列的二维动态数组myMatrix，并为每个元素赋值为行号加上列号。

#### 多维数组的访问和遍历
多维数组的访问和遍历与一维数组类似，可以使用索引的方式访问和修改元素。遍历多维数组可以使用嵌套的for循环来进行逐个遍历。例如：

for i := 0 to 2 do
begin
  for j := 0 to 3 do
  begin
    writeln(myMatrix[i][j]);
  end;
end;

上述代码遍历输出了二维数组myMatrix中的所有元素。

### 2.3 数组的排序和查找算法
在实际开发中，经常需要对数组进行排序和查找操作。DelphiXE10提供了一些常用的排序和查找算法。下面介绍两种常见的算法：冒泡排序和二分查找。

#### 冒泡排序
冒泡排序是一种简单直观的排序算法，通过多次比较和交换相邻元素的位置，将最大（或最小）的元素逐步“冒泡”到数组的一端。

procedure BubbleSort(var arr: TMyArray);
var
  i, j, temp: Integer;
  len: Integer;
begin
  len := Length(arr);

  for i := 0 to len - 2 do
  begin
    for j := 0 to len - i - 2 do
    begin
      if arr[j] > arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;
    end;
  end;
end;

#### 二分查找
二分查找是一种高效的查找算法，适用于有序数组。它从数组的中间元素开始，每次将查找范围缩小一半，直到找到目标元素或查找范围为空。

function BinarySearch(arr: TMyArray; target: Integer): Integer;
var
  left, right, mid: Integer;
begin
  left := 0;
  right := Length(arr) - 1;

  while (left <= right) do
  begin
    mid := left + (right - left) div 2;

    if (arr[mid] = target) then