Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!uwm.edu!rutgers!cmcl2!adm!news
From: TOMJ@csdserver3.csd.scarolina.edu (Thomas E. Jenkins, Jr.)
Newsgroups: comp.lang.pascal
Subject: Re: Help me (problems with strings)
Message-ID: <26596@adm.brl.mil>
Date: 18 Apr 91 19:35:44 GMT
Sender: news@adm.brl.mil
Lines: 28

>I'm getting the error "Type mismatch" in the following:
>
>Procedure writ(txt:string);
> var huh:char;
> begin;
> for x:=1 to length(txt) do begin
>  huh:=copy(txt,x,1);              <---error occurs here
    |    |______________  Result type STRING
    |_____  TYPE CHAR

   case txt [ x ] of      < -----  Try this
>   '[' : red;
>   ']' : rx;
>   else write(huh);
>  end; writeln; end;
> end;
>

tom
+--------------------------------------------------------------------------+
|  Thomas E. Jenkins, Jr.   Programmer, University of South Carolina CSD   |
+--------------------------------------------------------------------------+
| BITNET         :  C0361@UNIVSCVM.BITNET  |  CSDNET  :  tomj/csdserver3   |
| INTERNET       :  TOMJ@csdserver3.csd.scarolina.EDU          {PREFERRED} |
|                :  C0361@univscvm.csd.scarolina.EDU  |  129.252.43.30     |
| FROM Compuserv :  INTERNET:TOMJ@csdserver3.csd.scarolina.EDU {PREFERRED} |
|                :  INTERNET:C0361@univscvm.csd.scarolina.EDU              |
+--------------------------------------------------------------------------+