FIX: SplitString function result

This commit is contained in:
Alexander Koblov 2019-01-26 11:17:42 +00:00
commit 6ed040a808

View file

@ -1084,6 +1084,7 @@ var
Len, Finish: Integer;
begin
Len:= Length(S);
SetLength(Result, 0);
for Finish:= 1 to Len - 1 do
begin
if S[Finish] = Delimiter then