From ad397dedd74ebaa89fc3942abc90d4fb8cfa26e9 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Sun, 27 Dec 2020 18:21:32 +0300 Subject: [PATCH] =?UTF-8?q?ToWords('=20')=20=D0=BF=D0=BE=20=D1=83=D0=BC?= =?UTF-8?q?=D0=BE=D0=BB=D1=87=D0=B0=D0=BD=D0=B8=D1=8E?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- bin/Lib/PABCSystem.pas | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 6b00332c4..009cc26e3 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -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);