home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N3.ZIP / PHONTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-11  |  883 b   |  47 lines
  1. PROGRAM PhoneTest;
  2.  
  3. TYPE
  4.   PhoneStringType = STRING[10];
  5.  
  6. VAR
  7.   PhoneString : PhoneStringType;
  8.   PhoneNumber : LongInt;
  9.  
  10.  
  11. FUNCTION PhoneToLongInt(Phone : PhoneStringType) : LongInt;
  12.  
  13. VAR
  14.   I        : Integer;
  15.   Temp     : LongInt;
  16.   TempChar : Char;
  17.  
  18. BEGIN
  19.   TempChar := Phone[1];
  20.   Phone[1] := Phone[2];
  21.   Phone[2] := TempChar;
  22.   Val(Phone,Temp,I);
  23.   PhoneToLongInt := Temp;
  24. END;
  25.  
  26. FUNCTION LongIntToPhone(PackedPhone : LongInt) : PhoneStringType;
  27.  
  28. VAR
  29.   TempString : PhoneStringType;
  30.  
  31. BEGIN
  32.   Str(PackedPhone,TempString);
  33.   LongIntToPhone := TempString[2] +
  34.                     TempString[1] +
  35.                     Copy(TempString,3,8);
  36. END;
  37.  
  38.  
  39.  
  40. BEGIN
  41.   PhoneString := '9125551212';
  42.   PhoneNumber := PhoneToLongInt(PhoneString);
  43.   Writeln(PhoneNumber);
  44.   Writeln(PhoneToLongInt(PhoneString));
  45.   Writeln(LongIntToPhone(PhoneNumber));
  46. END.
  47.