Recent

Author Topic: Trouble with DelSpace1 (Solved)  (Read 906 times)

bytebites

  • Hero Member
  • *****
  • Posts: 538
Re: Trouble with DelSpace1
« Reply #15 on: December 09, 2022, 07:55:18 am »
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

  • Hero Member
  • *****
  • Posts: 1259
Re: Trouble with DelSpace1
« Reply #16 on: December 09, 2022, 08:56:11 am »
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).'
« Last Edit: December 09, 2022, 08:58:53 am by JLWest »
FPC 3.2.0, Lazarus IDE v2.0.4
 Windows 10 Pro 32-GB
 Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB

bytebites

  • Hero Member
  • *****
  • Posts: 538
Re: Trouble with DelSpace1
« Reply #17 on: December 09, 2022, 09:27:57 am »
Code: Pascal  [Select][+][-]
  1. for c in sSTR do write(ord(c));
What does this show?

jamie

  • Hero Member
  • *****
  • Posts: 5069
Re: Trouble with DelSpace1
« Reply #18 on: December 09, 2022, 03:53:26 pm »
Have you tried using Tab2Space function first on the string?
The only true wisdom is knowing you know nothing

JLWest

  • Hero Member
  • *****
  • Posts: 1259
Re: Trouble with DelSpace1
« Reply #19 on: December 09, 2022, 04:55:21 pm »
@bytebites I'll try it.
@Jamie  Yes I did Tab2Space. I also tried:
 S:=StringReplace(sCopy,'  ',' ',[ rfReplaceAll, rfIgnoreCase]x) ;
FPC 3.2.0, Lazarus IDE v2.0.4
 Windows 10 Pro 32-GB
 Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB

JLWest

  • Hero Member
  • *****
  • Posts: 1259
Re: Trouble with DelSpace1
« Reply #20 on: December 09, 2022, 05:03:45 pm »
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.                
FPC 3.2.0, Lazarus IDE v2.0.4
 Windows 10 Pro 32-GB
 Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB

JLWest

  • Hero Member
  • *****
  • Posts: 1259
Re: Trouble with DelSpace1
« Reply #21 on: December 09, 2022, 05:10:12 pm »
@bitebites It works but I'm getting sn error. Something about not able to open the file.
FPC 3.2.0, Lazarus IDE v2.0.4
 Windows 10 Pro 32-GB
 Intel i7 770K CPU 4.2GHz 32702MB Ram
GeForce GTX 1080 Graphics - 8 Gig
4.1 TB

 

TinyPortal © 2005-2018