Delphi: extract value from string with multiple separators and delimiters

Question

I have a string like this:

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

Given a function that returns a variant type and accepts as parameters the attribute type (For example EncoderMin), i want that the function returns the value of the attribute, so in this case 250

I am using this code but i cannot handle 2 delimiters. The first delimiter should be ';' that separates each attribute and the second delimiter should be ':' that separates the attribute from its value.

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;

Where Q.Fields[0].AsString is equals to ;EncoderMin:250;EncoderMax:5755;MinPixel:-240;MaxPixel:980;

Just add a LLista.NameValueSeparator := ':';

Uwe Raabe
– Uwe Raabe

2021-09-30 12:56:59 +00:00
Commented Sep 30, 2021 at 12:56 — Uwe Raabe
– Uwe Raabe, Commented Sep 30, 2021 at 12:56

MattiTheMaestro · Accepted Answer · 2022-04-29 08:00:36Z

2

I figured it out, the delimiter should be '=' instead of ':' .

Delphi automatically recognizes equals signs!

Thanks.

edited Apr 29, 2022 at 8:00

answered Sep 30, 2021 at 10:05

MattiTheMaestro

416 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

AmigoJack Over a year ago

I don't understand: you already set .StrictDelimiter := True in your question.

USauter · Accepted Answer · 2021-09-30 11:34:05Z

0

Another alternative is Split and 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;

answered Sep 30, 2021 at 11:34

USauter

3351 silver badge11 bronze badges

Collectives™ on Stack Overflow

Delphi: extract value from string with multiple separators and delimiters

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related