[fpc-devel] FExpand function
post at joaomorais.com.br
Sun Mar 5 00:04:07 CET 2006
Michael Van Canneyt wrote:
> On Sat, 4 Mar 2006, Joao Morais wrote:
>>Should this comparison (!) be fixed? Seeing that this code is going to
>>be changed, what about change Pa[I] assignment from a variable to a
> The comparison can be fixed.
> In fact I think the code can be reduced to a single loop:
> if (DirectorySeparator='\') or (DirectorySeparator='/') then
> for I:=1 to Length(PA) do
> if (Pa[I] in ['\','/']) and (PA[I]<>DirectorySeparator) then
> Could you test this, please ?
Perhaps you could use the in operator in the first if.
More information about the fpc-devel