delphi7中pos函数用法

在 Delphi7 中，Pos 函数用于返回一个字符串在另一个字符串中第一次出现的位置。

语法如下：

function Pos(SubStr: string; Str: string): Integer;

参数：

- `SubStr`：要查找的子字符串。
- `Str`：要在其中查找子字符串的字符串。

返回值：

- 如果找到了子字符串，则返回该子字符串在字符串中的位置（从1开始计数）。
- 如果没有找到子字符串，则返回0。

示例：

var
  Str: string;
  SubStr: string;
  Pos: Integer;
begin
  Str := 'Hello, world!';
  SubStr := 'world';

  Pos := Pos(SubStr, Str);
  
  if Pos > 0 then
    ShowMessage('子字符串 "' + SubStr + '" 在字符串 "' + Str + '" 中的位置是：' + IntToStr(Pos))
  else
    ShowMessage('字符串 "' + Str + '" 中没有找到子字符串 "' + SubStr + '"');
end;

以上代码将在消息框中显示：子字符串 "world" 在字符串 "Hello, world!" 中的位置是：8