### Delphi 7.0 常用函数详解
#### 一、概述
Delphi 7.0 是一款非常强大的跨平台集成开发环境（IDE），主要用于构建 Windows 和 macOS 应用程序。它提供了丰富的功能和工具，使得开发者能够快速地构建高效的应用程序。在 Delphi 7.0 中，内置了大量的函数，这些函数覆盖了字符串处理、数学计算、文件操作等多个方面，极大地提高了开发效率。
#### 二、字符串处理函数
##### 1. FloatToStr
**功能**：将浮点数转换为字符串。
**示例**：
```pascal
Edit1.Text := FloatToStr(1.981);
```
此函数将浮点数 `1.981` 转换为字符串 `"1.981"` 并赋值给 `Edit1.Text`。
##### 2. IntToStr
**功能**：将整数转换为字符串。
**示例**：
```pascal
S := IntToStr(10);
```
这里 `S` 会被赋值为 `"10"`。
##### 3. IntToHex
**功能**：将十进制整数转换为十六进制字符串。
**示例**：
```pascal
Edit1.Text := IntToHex(100, 2);
```
这会将整数 `100` 转换为十六进制字符串 `"64"`，并设置 `Edit1.Text` 的值为 `"64"`。
##### 4. StrToInt
**功能**：将字符串转换为整数。
**示例**：
```pascal
I := StrToInt('100');
```
如果字符串 `'100'` 可以被成功解析为整数，则 `I` 的值将会是 `100`。
##### 5. StrToFloat
**功能**：将字符串转换为浮点数。
**示例**：
```pascal
N := StrToFloat(Edit1.Text);
```
此函数尝试将 `Edit1.Text` 中的字符串转换为浮点数，并将结果存储在变量 `N` 中。
#### 三、字符串操作函数
##### 1. Copy
**功能**：从源字符串中复制一段子字符串。
**示例**：
```pascal
var S: String;
MyStr: String;
begin
S := 'ILoveChina!';
MyStr := Copy(S, 3, 4);
end;
```
该示例将从字符串 `S` 中的第 3 个字符开始复制 4 个字符，结果 `MyStr` 的值将是 `"Love"`。
##### 2. Concat
**功能**：将多个字符串连接成一个字符串。
**示例**：
```pascal
var S1, S2: String;
begin
S1 := Concat('A', 'B'); // S1 的值为 "AB"
S2 := Concat('Borland', 'Delphi', '7.0'); // S2 的值为 "BorlandDelphi7.0"
end;
```
##### 3. Delete
**功能**：删除字符串中的指定子串。
**示例**：
```pascal
var S: String;
begin
S := 'ILikeReadingCPCW.';
Delete(S, 16, 1); // 删除从第 16 个字符开始的一个字符
end;
```
执行后，`S` 的值为 `"ILikeReadingPCW."`。
##### 4. High
**功能**：获取数组的最大索引。
**示例**：
```pascal
var arrText: array[0..9] of Char;
i: Integer;
begin
i := High(arrText); // i 的值为 9
end;
```
##### 5. Insert
**功能**：在指定位置插入一个字符串。
**示例**：
```pascal
var S: String;
begin
S := 'Watisyourname?';
Insert('h', S, 2); // 在第 2 个位置插入 'h'
end;
```
执行后，`S` 的值变为 `"Watishyourname?"`。
##### 6. LeftStr (StrUtils 单元)
**功能**：从字符串左侧获取指定长度的子串。
**示例**：
```pascal
var S, A: String;
begin
S := 'MSNMessenger';
A := LeftStr(S, 3); // A 的值为 "MSN"
end;
```
##### 7. Length
**功能**：获取字符串的长度。
**示例**：
```pascal
var nLen1, nLen2: Integer;
begin
nLen1 := Length('CPCW'); // nLen1 的值为 4
nLen2 := Length('Ա'); // nLen2 的值可能根据字符编码不同而变化
end;
```
##### 8. Low
**功能**：获取数组的最小索引。
**示例**：
```pascal
var arrText: array[1..9] of Char;
i: Integer;
begin
i := Low(arrText); // i 的值为 1
end;
```
##### 9. LowerCase
**功能**：将字符串中的所有大写字母转换为小写字母。
**示例**：
```pascal
var S, A: String;
begin
S := 'ABC';
A := LowerCase(S); // A 的值为 "abc"
end;
```
##### 10. MidStr (StrUtils 单元)
**功能**：从字符串的指定位置开始获取指定长度的子串。
**示例**：
```pascal
var S, H: String;
begin
S := MidStr('China', 1, 2); // S 的值为 "Ch"
H := MidStr('Ա', 1, 1); // H 的值为 "Ա"
end;
```
##### 11. Pos
**功能**：查找子字符串在字符串中的位置。
**示例**：
```pascal
var nPos: Integer;
begin
nPos := Pos('Like', 'ILikeChina!'); // nPos 的值为 2
end;
```
以上介绍了一些常用的 Delphi 7.0 字符串处理和操作函数，这些函数可以帮助开发者高效地完成字符串相关的任务，提高程序的可读性和可维护性。通过合理使用这些函数，可以大大减少编程工作量，并提高代码的质量。
