home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPTOOL4.ZIP / REVERSE.INC < prev    next >
Encoding:
Text File  |  1987-03-27  |  419 b   |  23 lines
  1.  
  2. const reverse_tag: string[80]
  3.    = #0'@(#)CURRENT_FILE LAST_UPDATE Reverse strings 1.0'#0;
  4. #log String order reversal 1.0
  5.  
  6. (*
  7.  * reverse_string - return a string with all characters reversed
  8.  *
  9.  *)
  10.  
  11. function reverse_string(str: anystring): anystring;
  12. var
  13.    i: integer;
  14.    r: anystring;
  15. begin
  16.    r := '';
  17.    for i := length(str) downto 1 do
  18.       r := r + str[i];
  19.  
  20.    reverse_string := r;
  21. end;
  22.  
  23.