From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: a07f3367d7,5d6e2ad0b6f4137a
X-Google-Attributes: gida07f3367d7,public,usenet
X-Google-NewGroupId: yes
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news3.google.com!feeder1.cambriumusenet.nl!feed.tweaknews.nl!138.195.8.3.MISMATCH!news.ecp.fr!aioe.org!not-for-mail
From: John McCabe <john@nospam.assen.demon.co.uk>
Newsgroups: comp.lang.ada
Subject: Re: This MIDI stuff,
 would someone be interested in reviewing my  code?
Date: Tue, 09 Mar 2010 14:00:38 +0000
Organization: Aioe.org NNTP Server
Message-ID: <a3lcp59u2m1lhc3c0qi5ppse7a6jcnj26k@4ax.com>
References: <uun9p5dv8raemp9rrrbmfl08i8fqhjgqe9@4ax.com>
 <hn3c2q$4vk$1@tornado.tornevall.net>
  <cq7cp5508bmai028m6ki1bqh889lkpq9bo@4ax.com>
 <7cfcp5p6jipskr97btbmmqu3uc80c75h78@4ax.com>
 <4ceb27af-3190-4e3c-8bd9-62a6cc5d5641@i25g2000yqm.googlegroups.com>
NNTP-Posting-Host: RXEkuaSUwmKe0XIGFYSK7A.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
X-Notice: Filtered by postfilter v. 0.8.2
X-Newsreader: Forte Agent 2.0/32.652
Xref: g2news1.google.com comp.lang.ada:9488
Date: 2010-03-09T14:00:38+00:00
List-Id: <comp.lang.ada>

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 :-)