home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / swap.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  732 b   |  43 lines
  1. unit Swap;
  2.  
  3. interface
  4. procedure SwapI( var X, Y: integer);
  5. procedure SwapR( var X, Y: real);
  6. procedure SwapC( var X, Y: char);
  7. procedure SwapW( var X, Y: word);
  8. procedure SwapS( var X, Y: string);
  9.  
  10. implementation
  11.  
  12. procedure SwapI;
  13. var Temp: integer;
  14. begin
  15. Temp := X;          X := Y;          Y := Temp;
  16. end;
  17.  
  18. procedure SwapR;
  19. var Temp: real;
  20. begin
  21. Temp := X;          X := Y;          Y := Temp;
  22. end;
  23.  
  24. procedure SwapC;
  25. var Temp: char;
  26. begin
  27. Temp := X;          X := Y;          Y := Temp;
  28. end;
  29.  
  30. procedure SwapW;
  31. var Temp: word;
  32. begin
  33. Temp := X;          X := Y;          Y := Temp;
  34. end;
  35.  
  36. procedure SwapS;
  37. var Temp: string;
  38. begin
  39. Temp := X;          X := Y;          Y := Temp;
  40. end;
  41.  
  42. end.
  43.