在 Delphi 中，你可以使用 SplitString 函数来分离字符串

uses  
  SysUtils;  
  
var  
  str: string;  
  arr: TArray<string>;  
begin  
  str := 'This|is|a|test';  
  arr := SplitString(str, '|');  
  
  for i := 0 to High(arr) do  
    WriteLn(arr[i]);  
end.