delphi - 如何从特定文本中提取第一个字符串

Question

我需要从文本中提取字符串，如下例

Hi i have no name <z>empty</z>

我只想提取 <z>之前的文本到数组或字符串 hi i have no name
我试过这个功能

procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.StrictDelimiter := true;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

但它只能拆分字符，如 ;,:等。我想从此特定字符串 <z>开始拆分

Answer 1

当我阅读您所写的内容时，您有一个字符串，并且想要忽略第一次出现<z>之后的所有文本。例如，使用Pos和Copy：

P := Pos('<z>', input);
if P = 0 then 
  output := input
else 
  output := Copy(input, 1, P-1);

尽管有些事情告诉我您确实需要XML解析器。