administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet

Browse source
This commit is contained in:
Ivan Bondarev 2021-12-27 11:06:04 +01:00
parent eaa95f0d9d 5ee3e9290f
commit 5c4f818994
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
TestSuite/ToIntegersS.pas Normal file
View file

@ -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.

2
bin/Lib/PABCSystem.pas
View file

@ -12992,7 +12992,7 @@ function ToIntegers(Self: string; N: integer): array of integer; extensionmethod
begin begin
// SSM Скорость работы на 30% выше чем у ToIntegers без параметров // SSM Скорость работы на 30% выше чем у ToIntegers без параметров
Result := new integer[N]; Result := new integer[N];
var from := 1; var from := 0;
for var i:=0 to N-1 do for var i:=0 to N-1 do
Result[i] := Self.ReadInteger(from); Result[i] := Self.ReadInteger(from);
end; end;