|
|
@@ -415,7 +415,7 @@ begin |
|
|
|
P:= PChar(Value); |
|
|
|
if fSkipDelims then begin |
|
|
|
while (P^<>#0) and (P^=Delimiter) do begin |
|
|
|
P:= CharNext(P); |
|
|
|
{$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; |
|
|
|
end; |
|
|
|
end; |
|
|
|
while (P^<>#0) do begin |
|
|
@@ -424,19 +424,19 @@ begin |
|
|
|
end else begin |
|
|
|
P1:= P; |
|
|
|
while (P^<>#0) and (P^<>Delimiter) do begin |
|
|
|
P:= CharNext(P); |
|
|
|
{$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; |
|
|
|
end; |
|
|
|
SetString(S, P1, P - P1); |
|
|
|
end; |
|
|
|
Add(S); |
|
|
|
while (P^<>#0) and (P^<>Delimiter) do begin |
|
|
|
P:= CharNext(P); |
|
|
|
{$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; |
|
|
|
end; |
|
|
|
if (P^<>#0) then |
|
|
|
P:= CharNext(P); |
|
|
|
{$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; |
|
|
|
if fSkipDelims then begin |
|
|
|
while (P^<>#0) and (P^=Delimiter) do begin |
|
|
|
P:= CharNext(P); |
|
|
|
{$IFDEF LINUX}inc(P){$ELSE}P:= CharNext(P){$ENDIF}; |
|
|
|
end; |
|
|
|
end; |
|
|
|
end; |
|
|
|