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

Question

我有这样一个字符串：

;EncoderMin:250;EncoderMax:5755;MinPixel:-240;MaxPixel:980;

给定一个 returns 变体类型并接受属性类型作为参数的函数（例如 EncoderMin），我希望函数 returns 属性的值，所以在这种情况下250

我正在使用这段代码，但我无法处理 2 个分隔符。第一个分隔符应该是';'分隔每个属性，第二个分隔符应该是“:”，分隔属性和它的值。

function TFrameLayout3DSTD.GetAttributiSTD(ALoc: Integer;
  AField: String; AVarType: Word): Variant;
var
  Q: TADOQuery;
  LLista : TStringList;
begin
  Result := null;

  Q := DMConn.GetQuery(
    'select AttributiSTD from Locazioni3D where idLocazione = %d', [ALoc]);
  try
    Q.Open;
    LLista := TStringList.Create;
    try
      LLista.Delimiter := ';';
      LLista.StrictDelimiter := True;
      LLista.DelimitedText := Q.Fields[0].AsString;

      Result := LLista.Values[AField];
    finally
      LLista.Free;
    end;
  finally
    Q.Free;
  end;
end;

其中 Q.Fields[0].AsString 等于 ;EncoderMin:250;EncoderMax:5755;MinPixel:-240;MaxPixel:980;

Answer 1

我想出来了，分隔符应该是 '=' 而不是 ':' .

Delphi自动识别等号！

谢谢。

Answer 2

另一种选择是 Split 和 Indextext。

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;

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

Delphi: extract value from string with multiple separators and delimiters

delphi

tstringlist

delimiter

separator