Re: Jcl String Function

Peter Gore wrote:

>OK - thanks for that :-) It's just that the jcl has a function for
>absolutely everything ... except this.
>
>
>
>Peter Gore
>
>Project Manager IT
>
>(ddi) 01277 376433
>
>(swb) 01277 372916
>
>(mob) 07952 695755
>
>________________________________
>
>From: [email protected] [mailto:[email protected]]
>On Behalf Of GreatDayDan
>Sent: 13 May 2005 16:28
>To: [email protected]
>Subject: Re: [Delphi-JEDI] Jcl String Function
>
>
>
>Good Morning!
>
>   I don't know about the JCL, but you can do it this
>way:
>
>   Create a stringlist (sl). Assign the string to
>sl.Text. Then access the items in sl. sl[0] = 'First',
>etc.
>
>
>HTH...Dan'l
>
>--- gorepj <[email protected]> wrote:
>  
>
>>Is there a function in the jcl that returns the nth
>>String from a
>>string containing a comma separated list of
>>sub-strings. e.g.
>>
>>Var
>>  MyCommaSeparateString: String
>>  MyExtractedString: String
>>begin
>>  MyCommaSeparateString := 'First,Second,Third';
>>  MyExtractedString :=
>>MyJclRequiredFunction(MyCommaSeparateString,1);
>>  //MyExtractedString now contains 'First'
>>  MyExtractedString :=
>>MyJclRequiredFunction(MyCommaSeparateString,2);
>>  //MyExtractedString now contains 'Second'
>>  ...
>>end;
>>
>>
>>
>>    
>>
>
>____________________________________
>  Every day is a Great day, but
>some days are GREATER than others!
>
>
>           
>__________________________________
>Yahoo! Mail Mobile
>Take Yahoo! Mail with you! Check email on your mobile phone.
>http://mobile.yahoo.com/learn/mail
>
>
>
>________________________________
>
>Yahoo! Groups Links
>
>*	To visit your group on the web, go to:
>	http://groups.yahoo.com/group/Delphi-JEDI/
>	 
>*	To unsubscribe from this group, send an email to:
>	[email protected]
><mailto:[email protected]?subject=Unsubscribe>
>	 
>*	Your use of Yahoo! Groups is subject to the Yahoo! Terms of
>Service <http://docs.yahoo.com/info/terms/> .
>
>
>
>__________________________________________________________________________
>TM Retail, Ashwells Road, Brentwood, Essex CM15 9ST
>
>This e-mail including any attachments is intended only for the addressee
>named above and it may contain confidential or privileged information.
>If you are not the intended recipient please notify the sender and note
>that the contents must not be disclosed to anyone else, no copies can be
>taken and all existing copies must be destroyed.
>TM Retail will not be liable for any error in transmission.
>You should carry out your own virus checks before opening any attachments.
>Opinions, conclusions and other information in this message
>and attachments that do not relate to the official business
>of TM Retail are neither given nor endorsed by it.
>TM Retail is the trading name of Forbuoys Limited.
>
>[Non-text portions of this message have been removed]
>
>
>
> 
>Yahoo! Groups Links
>
>
>
> 
>
>
>  
>
I've had need of such a function many times and have always written one, 
tailored to the project.
Over time, I have created some rather generic versions, which can 
usually be dropped into an app with no changes.
If you need help writing this function, I'd be glad to share my code 
with you.
Sam H.


[Non-text portions of this message have been removed]



 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/Delphi-JEDI/

<*> To unsubscribe from this group, send an email to:
    [email protected]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/