delphi7 字符串转数组

在Delphi 7中，可以使用SplitString函数将字符串转换为数组。SplitString函数一个自定义函数，可以按照指定的分隔符将字符串拆分成多个子字符串，并将这些子字符串存储在一个动态数组中。

以下是一个示例代码，演示了如何使用SplitString函数将字符串转换为数组：

function SplitString(const AText, ADelimiter: string): TArray<string>;
var
  StrList: TStringList;
  I: Integer;
begin
  StrList := TStringList.Create;
  try
    StrList.Delimiter := ADelimiter;
    StrList.StrictDelimiter := True;
    StrList.DelimitedText := AText;

    SetLength(Result, StrList.Count);
    for I := 0 to StrList.Count - 1 do
      Result[I] := StrList[I];
  finally
    StrList.Free;
  end;
end;

// 示例用法
var
  StrArray: TArray<string>;
begin
  StrArray := SplitString('Hello,World,Delphi', ',');
  // 现在StrArray数组中包含了三个元素：'Hello'、'World'和'Delphi'
end;

在上述示例中，SplitString函数接受两个参数：AText表示要拆分的字符串，ADelimiter表示分隔符。函数内部使用TStringList来进行拆分操作，并将拆分后的子字符串存储在动态数组Result中。