ParseStringToDictionary

## {$zerobasedstrings}
 
function ParseStringToDictionary(s: string): Dictionary<string, integer>;
begin
  var num_syms := ('0'..'9').ToHashSet;
  num_syms += '-'; // Вынести бы наверх - если очень важна производительность.
  
  Result := new Dictionary<string, integer>;
  
  var i := 0;
  while i <> s.Length do
  begin
    var key := s.Substring(i, 2);
    i += key.Length;
    
    var c := 0;
    while s[i+c] in num_syms do
    begin
      c += 1;
      if i+c=s.Length then break;
    end;
    var val := s.Substring(i, c);
    i += c;
    
    Result.Add(key, StrToInt(val));
  end;
  
end;
 
Println(ParseStringToDictionary(ReadString));

var data := 'AB100CD-500 EF999GH-1000IJ1000 KL0';
var dic := new Dictionary<string, integer>;
 
//--------------------------------------------
var pattern := '([A-Za-z]{2})(-?\d{1,4})';
var _matches := Regex.Matches(data, pattern);
 
foreach var m in _matches do
begin
  var s:=m.ToString;
  var k := s?[:3];
  var v := 0;
  if integer.TryParse(s?[3:], v) then if (k.Length=2) and (v in -1000..1000) then dic[k] := v
end;
//--------------------------------------------
dic.PrintLines;

##
var data := 'AB100CD-500 EF999GH-1000IJ1000 KL0';
var dic := new Dictionary<string, integer>;
 
//--------------------------------------------
var pattern := '([A-Za-z]{2})(-?\d{1,4})';
var matches := data.Matches(pattern);
 
foreach var m: &Match in matches do
begin
  var k := m.Groups[1].Value;
  var v: integer;
  if not integer.TryParse(m.Groups[2].Value, v) then continue;
  if v not in -1000..+1000 then continue;
  dic.Add(k, v);
end;
//--------------------------------------------
dic.PrintLines;