Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/REVERSE.INC

Text File | 1988-01-29 | 291 b | 19 lines

(*
 * reverse_string - return a string with all characters reversed
 *
 *)

function reverse_string(str: anystring): anystring;
var
   i: integer;
   r: anystring;
begin
   r := '';
   for i := length(str) downto 1 do
      r := r + str[i];

   reverse_string := r;
end;