I assumed (kicks himself) that Ross had included the separator (.) in the
Extension as he used '.wav' in his original post.
For readability and to cover the case where the separator is not Extension I
would probably use :
Const AudioFiles = '..wav..mp3..ogg..';
IsAudio := pos('.' + Extension + '.',AudioFiles) > 0);
Stephen
-----Original Message-----
From: Roser, Wayne [mailto:[EMAIL PROTECTED]]
Sent: Thursday, 2 August 2001 10:34 a.m.
To: Multiple recipients of list delphi
Subject: RE: [DUG]: Sets of Strings? - Correction
There are lots of good ideas on this thread but if you use this one, notice
that an Extension of 'v' will give a true result.
Wayne
> -----Original Message-----
> From: Ross Levis [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, 2 August 2001 10:31
> To: Multiple recipients of list delphi
> Subject: Re: [DUG]: Sets of Strings? - Correction
>
>
> Stephen Bertram wrote:
>
> > IsAudio := (pos(Extension + '@', '.wav@.mp3@.ogg@') > 0);
>
> That's an idea.
>
> Const AudioFiles = '.wav@.mp3@.ogg@';
> IsAudio := pos(Extension + '@',AudioFiles) > 0);
>
> It then allows me to easily add more formats in the future.
> Though I'll
> probably use a character that is illegal in a filename.
>
> Cheers,
> Ross.
>
> --------------------------------------------------------------
> -------------
> 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/
