mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

Merge 2208456b87 into 837cc08394

Browse source
This commit is contained in:
Andrey 2026-05-16 05:08:48 +00:00 • committed by GitHub
commit e579eafc28
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 7 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

22
components/doublecmd/dcstrutils.pas
View file

@ -1134,23 +1134,15 @@ begin
end;
procedure ParseLineToList(sLine: String; ssItems: TStrings);
var
xPos: Integer;
begin
ssItems.Clear;
while sLine <> '' do
with ssItems do
begin
xPos:= Pos(';', sLine);
if xPos > 0 then
begin
ssItems.Add(Copy(sLine, 1, xPos - 1));
Delete(sLine, 1, xPos);
end
else
begin
ssItems.Add(sLine);
Exit;
end;
Clear;
StrictDelimiter := True;
Delimiter := ';';
if(sLine[Length(sLine)] = ';') then
sLine := Copy(sLine, 1, Length(sLine) - 1);
DelimitedText := sLine;
end;
end;