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/
