Delphi字符串处理：截取、删除、插入与合并

在 Delphi 编程中，字符串处理是常见的任务，而字符串截取函数则能帮助开发者方便地操作字符串。本文将详细介绍 Delphi 中用于字符串截取的几个关键函数：`LeftStr`, `RightStr`, `MidStr`, `Copy`, `Concat`, `Delete`, `High`, 和 `Insert`，并提供示例代码以加深理解。 1. `Copy` `Copy` 函数允许你从一个字符串中提取子字符串。它接受三个参数：原始字符串、开始位置和长度。例如： ```delphi var S, MyStr: String; begin S := 'ILoveChina!'; // 提取 'ILoveChina!' 中从第 3 个字符开始的 'Love' 子字符串 MyStr := Copy(S, 3, 4); end; ``` 在这个例子中，`Copy(S, 3, 4)` 返回 'Love'，因为它从字符串 `S` 的第 3 个字符开始，截取了接下来的 4 个字符。 2. `Concat` `Concat` 函数用于连接两个或多个字符串。例如： ```delphi var S1, S2: String; begin S1 := Concat('A', 'B'); // 结果为 'AB' S2 := Concat('Borland', 'Delphi', '7.0'); // 结果为 'BorlandDelphi7.0' end; ``` 这里，`Concat` 将所有提供的字符串连接成一个新的字符串。 3. `Delete` `Delete` 函数用于从字符串中删除指定范围内的字符。它接受两个参数：原始字符串和要删除的起始位置（包含）以及长度。例如： ```delphi var S: String; begin S := 'ILikeReadingCPCW.'; // 删除 'S' 中从第 16 个字符开始的 'C' 字符 Delete(S, 16, 1); end; ``` 结果字符串 `S` 变为 'ILikeReadingPCW.'，因为 'C' 已经被删除。 4. `High` `High` 函数通常用于数组，返回数组的最后一个索引。在字符数组中，这个值是数组长度减一。例如： ```delphi var arrText: array[0..9] of Char; i: Integer; begin i := High(arrText); // i 的值为 9 end; ``` 这里的 `High(arrText)` 返回 9，因为数组 `arrText` 的索引范围是 0 到 9。 5. `Insert` `Insert` 函数在字符串的指定位置插入另一个字符串。它接受三个参数：原始字符串、插入的子字符串和插入位置。例如： ```delphi var S: String; begin S := 'Watisyourname?'; // 在 'Watisyourname?' 的第 2 个位置插入 'h' Insert('h', S, 2); end; ``` 结果字符串 `S` 变为 'What isyourname?'，因为 'h' 被插入到 'W' 之后。 6. `LeftStr` 和 `RightStr` 这两个函数分别用于获取字符串左侧和右侧的指定长度的子字符串。例如： ```delphi var Str: String; begin Str := 'HelloWorld'; // 获取 'HelloWorld' 的前 2 个字符 'He' ShowMessage(LeftStr(Str, 2)); // 获取 'HelloWorld' 的后 2 个字符 'ld' ShowMessage(RightStr(Str, 2)); end; ``` `LeftStr` 返回 'He'，`RightStr` 返回 'ld'。 7. `MidStr` `MidStr` 函数类似于 `Copy`，但它的第三个参数表示的是字符数而不是长度。例如： ```delphi var Str: String; begin Str := 'HelloWorld'; // 获取 'HelloWorld' 从第 2 个字符开始的 2 个字符 'el' ShowMessage(MidStr(Str, 2, 2)); end; ``` `MidStr` 在这个例子中返回 'el'。 通过熟练掌握这些字符串处理函数，Delphi 开发者可以更高效地处理各种字符串操作，提高代码的可读性和效率。