diff --git a/TestSuite/ToIntegersS.pas b/TestSuite/ToIntegersS.pas new file mode 100644 index 000000000..3659e02f9 --- /dev/null +++ b/TestSuite/ToIntegersS.pas @@ -0,0 +1,8 @@ +begin + var s := '12 34 56'; + Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56))); + Assert(s.ToIntegers.ArrEqual(Arr(12,34,56))); + s := ' 12 34 56 '; + Assert(s.ToIntegers(3).ArrEqual(Arr(12,34,56))); + Assert(s.ToIntegers.ArrEqual(Arr(12,34,56))); +end. \ No newline at end of file diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 4eae01ff9..5ab3bf243 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -12992,7 +12992,7 @@ function ToIntegers(Self: string; N: integer): array of integer; extensionmethod begin // SSM Скорость работы на 30% выше чем у ToIntegers без параметров Result := new integer[N]; - var from := 1; + var from := 0; for var i:=0 to N-1 do Result[i] := Self.ReadInteger(from); end;