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

ToWords(' ') по умолчанию

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2020-12-27 18:21:32 +03:00
parent 753d811243
commit ad397dedd7
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bin/Lib/PABCSystem.pas
View file

@ -12362,12 +12362,10 @@ begin
Result := Self.Split(delim, System.StringSplitOptions.RemoveEmptyEntries);
end;
const SpaceDelimiters = ' '+#9#10#13;
/// Преобразует строку в массив слов, используя в качестве разделителей символы из строки delim
function ToWords(Self: string; delim: string := SpaceDelimiters): array of string; extensionmethod;
/// Преобразует строку в массив слов, используя в качестве разделителей символы из строки delims
function ToWords(Self: string; delims: string := ' '): array of string; extensionmethod;
begin
Result := Self.Split(delim.ToCharArray, System.StringSplitOptions.RemoveEmptyEntries);
Result := Self.Split(delims.ToCharArray, System.StringSplitOptions.RemoveEmptyEntries);
end;
procedure PassSpaces(var s: string; var from: integer);