Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!cs.utexas.edu!sm.unisys.com!csun!csuna!abcscnuk
From: abcscnuk@csuna.UUCP (Naoto Kimura)
Newsgroups: comp.lang.pascal
Subject: Re: Converting Strings to Char
Message-ID: <1672@csuna.UUCP>
Date: 19 Feb 89 01:48:31 GMT
References: <459@loligo.cc.fsu.edu> <950017@hpcllmr.HP.COM> <1701@westfort.UUCP>
Reply-To: abcscnuk@csuna.UUCP (Naoto Kimura)
Organization: California State University, Northridge
Lines: 40

In article <1701@westfort.UUCP> westfort!dragon@tut.cis.ohio-state.edu writes:
]  ... (text deleted) ...
] 
] procedure send(ch:char);
] 
]  ... (text deleted) ...
] 
] procedure test;
] 
] var
]   x:integer;
]   s:string[80];
   { structurally equivalent to: packed array [0..80] of char
     index 0 is length }
]   sd:string[1];
   { structurally equivalent to: packed array [0..1] of char
     index 0 is length }
]   
] begin
]   s:='Hello';
]   for x:=1 to length(s) do begin
]  {    sd:=copy(s,x,1);
]     send(sd);    (*  The problem.. Can't send a string through as a char.. *)
   }  send(s[x])
   {  ^^^^^^^^^^  }
]    end;
]   end;
] 
] begin
] test;
] end.
] 
]         Jason


                //-n-\\				Naoto Kimura
        _____---=======---_____			(csun!csuna!abcscnuk)
    ====____\   /.. ..\   /____====
  //         ---\__O__/---         \\	Enterprise... Surrender or we'll
  \_\                             /_/	send back your *&^$% tribbles !!