From: prino@onetel.com   
      
   "Jim Leonard"  wrote in message   
   news:1135118854.510211.74340@g49g2000cwa.googlegroups.com...   
   > In building a recent Turbo Pascal 7.0 program, I've run into an odd   
   > programming wall that I don't quite know how to get past, and am   
   > looking for advice.  Here's my situation:  I'm writing a program that   
   > needs to execute between 80 and 100 tests (all using a small snippet   
   > of   
   > inline asm code) and I need to be able to execute each test   
   > individually as well as execute all tests at once.  Is there an easy   
   > way to do this without trying to remember each procedure's name and   
   > hoping that I don't forget something in a long init section, etc.?   
   >   
   > Maybe a better way to describe what I'm looking for is to describe   
   > what   
   > I'm NOT looking for.  Each test is embedded in an object with an init   
   > section (that sets up the test), a "do" section (that runs the test),   
   > a   
   > "keyword" section (where it returns an 8-character description of what   
   > test the object is), and a "report" section (that reports the test run   
   > in numbers).  So my init section looks like:   
   >   
   > Procedure StartTests;   
   > begin   
   >  test_foo.init;   
   >  test_bar.init;   
   >  test_baz.init;   
   > .   
   > .   
   > .   
   >   
   >   
   > and so on for nearly 100 lines.  Is there any way to "loop" through   
   > all   
   > my objects instead of having to init them all manually like this?   
   >   
   > Likewise, I would like to run an object's method based on the output   
   > of   
   > some other object -- is there any way to run an object based on for   
   > example the output of it's "keyword" method instead of having to know   
   > or remember the object's name?  I guess what I'm asking is -- is there   
   > a way to maintain an "array" of procedures or objects?  If so, what   
   > would this look like and how would I use it?  I've seen other code   
   > that   
   > defines procedure variables but I'm afraid I really don't understand   
   > them.   
   >   
   > Thanks to any and all advice!   
   >   
      
   In one of my programs - plain Pascal, no Objects...   
      
   type   
     proc_rec = record   
                  key : array[1..4] of char;   
                  proc: procedure; {<---}   
                  pos : word;   
                  fil : string[5];   
                end;   
      
   {*   
   Control array for 'rtf_engine'.   
   *}   
   const   
     proc_arr: array [0..7] of proc_rec =   
               ((key: 'Qual'; proc: process_quality_tab; pos: 55; fil: ''),   
                (key: ' DT '; proc: process_dtns_tab;    pos: 24; fil: ''),   
                (key: ' DC '; proc: process_dtns_c_tab;  pos: 14; fil: ''),   
                (key: 'Firs'; proc: process_fila_tab;    pos: 12; fil: ''),   
                (key: '  T='; proc: process_mima_tab;    pos: 85; fil: ''),   
                (key: '  T='; proc: process_mima_tab;    pos: 91; fil: ''),   
                (key: ' #R '; proc: process_inex_tcn;    pos: 42; fil: ''),   
                (key: 'S'; proc: process_day_tab;     pos: 87; fil:   
   ''));   
      
   procedure rtf_engine;   
   var _i: integer;   
      
   begin   
     __eof:= false;   
      
     repeat   
       new_sect:= #218;   
       reader(#218#196#196#196, 1);   
      
       if not __eof then   
         begin   
           next;   
      
           _i:= -1;   
      
           repeat   
             inc(_i);   
      
             move(_line[proc_arr[_i].pos], this, 4);   
      
             if longint(this) = longint(proc_arr[_i].key) then   
               begin   
                 proc_arr[_i].proc; {<-- This is the call}   
                 _i:= -1;   
               end;   
           until (_i = -1) or   
                 (_i = pred((sizeof(proc_arr) div sizeof(proc_arr[0]))));   
      
           if _i <> -1 then   
             writer(_line);   
         end;   
     until __eof;   
   end; {rtf_engine}   
      
   Robert   
   --   
   Robert AH Prins   
   prino at prino dot plus dot com   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)