Delphi：具有多个分隔符和分隔符的字符串中提取值

uses

   System.SysUtils, System.StrUtils, System.Variants;

var

  txt: string;

  arr: TArray<string>;

  i  : integer;

  v  : variant;

begin

  try

    v  := null;

    txt := ';z:250;a:17;EncoderMin:250;EncoderMax:5755;MinPixel:-240;MaxPixel:980;';

    arr := txt.Split([';', ':']);

    i  := IndexText('EncoderMin', arr);

    if i >= 0 then

      v := arr[succ(i)];

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;