Forum > Beginners

String probelm(Solved)

<< < (6/6)

Zvoni:
If it‘ too much i can write a pre-parser to separate your lines
Not that difficult

JLWest:
No it's not to much. I do that already. I'll resend. Take me a few min.

JLWest:
One per line.
I think the code I posted will do multi items per line.

JLWest:
Abd the Answer is: i think?

My deliminters are changed from:
('(', ' = ', '; ', ':', '[', ',', ':= ', '-',' ');
To:
('(','=',';', ':','[', ',', ':=', '-','+',' ');
This allows me to search a string for a Char.

I can strip the following from: 

procedure ClrEol;
protected procedure TCustomBitBtn.CMAppShowBtnGlyphChanged(var Message: TLMessage); message;
procedure Continue;
protected procedure TCustomGrid.AddSelectedRange;
procedure DebugLnExit; overload;
protected procedure TControl.EndAutoSizing;
procedure Exclude(var S: TSetType; E: TSetElement);

To:                         do a Char by Char search left to right of the string for one of the deliminter.
Fitst delimiter found do a  sName:=Copy2Symb( AString,AChar);
 
ClrEol;           
CMAppShowBtnGlyphChanged(var Message: TLMessage); message;
Continue;
AddSelectedRange;
DebugLnExit; overload;
EndAutoSizing;
Exclude(var S: TSetType; E: TSetElement);

Anyway it seem to work.

So I thing I'll marked it solved.

Navigation

[0] Message Index

[*] Previous page