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/
