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; 

在这个例子中，输出将显示为一组消息，但你得到的总体思路。