Lazarus - 基于分隔符的解析函数

Question

我正在 Lazarus 中构建一个小型应用程序，需要一个基于下划线的解析函数。例如：

array := Split(string, delimiter);

所以 string = "this_is_the_first_post" 和分隔符是下划线，导致数组返回为：

array[0] = this
array[1] = is
array[2] = the
array[3] = first
array[4] = post

任何人都知道如何解决这个问题吗？我尝试了一些代码示例，但它总是抛出错误。

谢谢。

Answer 1

您可以使用以下代码：

var
  List1: TStringList;    
begin
  List1 := TStringList.Create;    
  try
    List1.Delimiter := '_';
    List1.DelimitedText := 'this_is_the_first_post';

    ShowMessage(List1[0]);
    ShowMessage(List1[1]);
    ShowMessage(List1[2]);
    ShowMessage(List1[3]);
    ShowMessage(List1[4]);
  finally
    List1.Free;
  end;
end;

在本示例中，输出将显示为一组消息，但您已经了解了总体思路。