Trouble with DelSpace1 (Solved)

[bytebites]

Code: Pascal  [Select][+][-]

1.   writeln(RemoveControlCharsDoubleSpacesTrimInsideParentheses('*M1'#$0D#$0A#$0D#$0A'  uses ... controls;'#$0D#$0A#$0D#$0A'  protected procedure TControlBorderSpacing.Change(  InnerSpaceChanged: Boolean); virtual;'#$0D#$0A ));

Yields:
*M1 uses ... controls; protected procedure TControlBorderSpacing.Change(InnerSpaceChanged: Boolean); virtual;

[JLWest]

No they still have double Spaces. Willing to build and post a Demo but will take a couple of  days.

Code: Pascal  [Select][+][-]

1. sSTR := Trim( ASTR );
2. S:=RemoveControlCharsDoubleSpacesTrimInsideParentheses(sSTR);
3. S = $00000000000DC3B8^: '*M1 uses ... controls; protected procedure TControlBorderSpacing.Change(  InnerSpaceChanged: Boolean); virtual; Arguments: InnerSpaceChanged    currently ignored (distinction no more required).'

[bytebites]

Code: Pascal  [Select][+][-]

1. for c in sSTR do write(ord(c));

What does this show?

[jamie]

Have you tried using Tab2Space function first on the string?

[JLWest]

@bytebites I'll try it.
@Jamie  Yes I did Tab2Space. I also tried:
 S:=StringReplace(sCopy,'  ',' ',[ rfReplaceAll, rfIgnoreCase]x) ;

[JLWest]

That Worked. I don't understand how.
Thanks

Code: Pascal  [Select][+][-]

1. S ='*M1 uses ... controls; public property TCustomControl.Canvas: TCanvas read FCanvas write FCanvas; See: TCanvas TCanvas represents a drawing surface which might be attached to a visual control which might be displayed on the screen or to an offscreen bitmap. It contains a number of drawing functions.'
2.                

[JLWest]

@bitebites It works but I'm getting sn error. Something about not able to open the file.