yangyxd / yxdiocp Goto Github PK

procedure InitPathVariable(const URI: string; const Item: TUriMapData;
    APathVariable: TDictionary<string, string>);
  var
    P1, P2, P3, P4, P5: PChar;
    Key,Value: string;
  begin
    P1 := PChar(URI);
    P3 := PChar(Item.Uri);
    P4 := P3 + Length(Item.URI);
    P2 := P1 + Length(URI);
    while P3 < P4 do begin
      if P3^ = '{' then begin
        Inc(P3);
        P5 := P3;
        while (P3 < P4) and (P3^ <> '}') do
          Inc(P3);
        Key := PCharToString(P5, P3 - P5);
        Inc(P3);     // P3的位置}得在移动一下才到/

        P5 := P1;
        while (P1 < P2) and (P1^ <> '/') do
          Inc(P1);

        Value := PCharToString(P5, P1 - P5);

        APathVariable.Add(Key, Value);
      end;
      Inc(P1);
      Inc(P3);
    end;
  end;