arrays - 帕斯卡 'Split' 函数

Question

我正在用 pascal 编写一个小程序，但遇到了一个小问题。在其他语言中，有一个名为“split”或“explode”的函数，用于获取由定义的字符分隔的长字符串，并将该长字符串拆分为几个较小的字符串，并将它们分配给一个数组。 这就是我的意思，我想这样做:

longstring:='Word1.Word2.Word3');

Split('.', longstring, OutPutVariable) ;

{ OutPutVariable[1] would be Word1}
{ OutPutVariable[2] would be Word2}
{ OutPutVariable[3] would be Word3}

这不是真正的代码，因为 pascal 中不存在“分割”。我认为它存在于 Delphi 中。任何人都可以帮我解决这个问题吗？抱歉，如果这是一个非常简单的问题，我是编程新手

Answer 1

使用TStringList执行以下操作:

procedure SplitText(aDelimiter: Char; const s: String; aList: TStringList);
begin
  aList.Delimiter := aDelimiter;
  aList.StrictDelimiter := True; // Spaces excluded from being a delimiter
  aList.DelimitedText := s;
end;

注意:StrictDelimiter属性于 D2006 添加。

另一种方式:

procedure SplitText(const aDelimiter,s: String; aList: TStringList);
begin
  aList.LineBreak := aDelimiter;
  aList.Text := s;
end;

可以使用多个字符作为分隔符。