home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / datatype.swg / 0008_TYPECAST.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  2.8 KB  |  64 lines
  1. (*
  2. > Hi, I am a begginer Programer (I taught myself) and I am writing a
  3. > sort of "matching Program" my problem is: is there a way to give to
  4. > Variable two values of diffent Types (a Variable called X1 would
  5. > have one Char Type and hold a Integer value at the same time)?
  6.  
  7.  Yes.  There is more than one way to do this, using Turbo Pascal.
  8.  
  9.  The most familiar way is by using the "Type-transfer" Functions:
  10.  
  11.             orD()           { transfer Char value to Word|Integer   }
  12.             CHR()           { transfer Word|Integer to Char         "
  13.  
  14.  Similar to this, there is also "Type-casting."  to use this method
  15.  you just put the Variable to be changed inside of brackets that
  16.  specify the Type wanted (see example below).
  17.  
  18.  A third way is to use "free unions," which look like Records. Again,
  19.  the example code, below, is the best way to show you.
  20.  
  21.  Experiment With this example code.  if you still have problems
  22.  after, show me an example of what you are trying to do ...
  23. *)
  24.  
  25. (*******************************************************************)
  26.  Program Example;               { Compiler: Turbo & Quick Pascal    }
  27.                                 { Feb.17.1993, Greg Vigneault       }
  28.  
  29.  { Examples of Type-transfer, Type-cast, and free unions ...        }
  30.  
  31.  Type   CharInt = Record                        { the free union    }
  32.                     Case Word of
  33.                         0   : ( Ch  : Char );
  34.                         1   : ( Int : Integer );
  35.                   end;
  36.  
  37.  Var    myVar   :CharInt;                       { a free union Var  }
  38.         bVar    :Byte;                          { unsigned 8-bit    }
  39.         cVar    :Char;                          { a Character       }
  40.         iVar    :Integer;                       { signed 16-bit     }
  41.         wVar    :Word;                          { unsigned 16-bit   }
  42.  begin
  43.  {  examples using "Type-transfer" Functions ...                    }
  44.  
  45.     bVar := 65;           WriteLn( bVar );      { Byte value        }
  46.     cVar := CHR( bVar );  WriteLn( cVar );      { displays 'A'      }
  47.     iVar := orD( cVar );  WriteLn( iVar );      { Char to Integer   }
  48.  
  49.  {  examples using "Type-casting" ...                               }
  50.  
  51.     cVar := Char( bVar );  WriteLn( cVar );     { cast Char to Byte }
  52.     bVar := Byte( cVar );  WriteLn( bVar );     { cast Byte to Char }
  53.     iVar := Integer( cVar );  WriteLn( iVar );  { Char to Integer   }
  54.  
  55.  { examples using a "free union" ...                                }
  56.  
  57.     myVar.Ch := 'A';                            { assign as Char    }
  58.     WriteLn( myVar.Int );                       { display Integer   }
  59.     myVar.Int := 48;                            { assign Integer    }
  60.     WriteLn( myVar.Ch );                        { display Char '0'  }
  61.  
  62.  end {Example}.
  63. (*******************************************************************)
  64.