You could make it more efficient by
result := pos(SubStr,S);
if result = 0 then result := pos(uppercase(SubStr),S);

Todd

----- Original Message -----
From: "Neven MacEwan" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, April 02, 2003 4:48 PM
Subject: Re: [DUG]: Case Insensitive POS


> Chris
>
> Yeah wrote my own ansipos, result := pos(uppercase(SubStr),UpperCase(S))
>
> but its go to be inefficient
>
> N
>
>
> ----- Original Message -----
> From: "Chris Veale" <[EMAIL PROTECTED]>
> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> Sent: Wednesday, April 02, 2003 4:09 PM
> Subject: RE: [DUG]: Case Insensitive POS
>
>
> > how about converting both to uppercase first?
> >
> > > -----Original Message-----
> > > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
> > > Behalf Of Neven MacEwan
> > > Sent: Wednesday, 2 April 2003 4:05 p.m.
> > > To: Multiple recipients of list delphi
> > > Subject: [DUG]: Case Insensitive POS
> > >
> > >
> > > Yo all
> > >
> > > Anyone OTTOTH know is there is a std case insesitive vserion of pos()
> > >
> > > TIa
> > >
> > >  Regards Neven
> > >  N.K. MacEwan B.E. E&E
> > >  Ph 649 621 0001
> > >  Fax 649 621 0400
> > >  [EMAIL PROTECTED]
> > >
> > > --------------------------------------------------------------
> > > -------------
> > >     New Zealand Delphi Users group - Delphi List -
> > > [EMAIL PROTECTED]
> > >                   Website: http://www.delphi.org.nz
> > > To UnSub, send email to: [EMAIL PROTECTED]
> > > with body of "unsubscribe delphi"
> > > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> > > ---
> > > Incoming mail is certified Virus Free.
> > > Checked by AVG anti-virus system (http://www.grisoft.com).
> > > Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/03
> > >
> >
> > ---
> > Outgoing mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.465 / Virus Database: 263 - Release Date: 25/03/03
> >
> >
> >
> >
> > ______________________________________________________
> > The contents of this e-mail are privileged and/or confidential to the
> > named recipient and are not to be used by any other person and/or
> > organisation. If you have received this e-mail in error, please notify
> > the sender and delete all material pertaining to this e-mail.
> > ______________________________________________________
>
> --------------------------------------------------------------------------
> -
> >     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> >                   Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
> >
> >
>
> --------------------------------------------------------------------------
-
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
> Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/

Reply via email to