Re: This MIDI stuff, would someone be interested in reviewing my code?

[John McCabe <john@nospam.assen.demon.co.uk>]

On Tue, 9 Mar 2010 05:11:25 -0800 (PST), Martin
<martin.dowie@btopenworld.com> wrote:

>On Mar 9, 12:24�pm, John McCabe <j...@nospam.assen.demon.co.uk> wrote:
>> On Tue, 09 Mar 2010 10:21:00 +0000, John McCabe
>>
>> <j...@nospam.assen.demon.co.uk> wrote:
>> >>I would make Numinputdevices and Numoutputdevices constants.
>> >They're not constants though - they're discovered from the
>> >midiInGetNumDevs and midiOutGetnumDevs functions.
>>
>> Just realised what you mean; they're constant through the life of the
>> program so do
>>
>> procedure MidiDevs is
>> � �blah
>>
>> � �Num_Input_Devices : Win32.UINT := Win32.Mmsystem.midiInGetNumDevs;
>> � �<same for output>
>> begin
>>
>> � �blah
>>
>> end MidiDevs;
>>
>> Yes, that would be possible.
>
>Better yet:
>   Num_Input_Devices : constant Win32.UINT :=
>Win32.Mmsystem.midiInGetNumDevs;

Aaarrrggh - of course! The things that happen when you rush to type
something :-)