home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP003.ZIP / REP_CHAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-09-08  |  1.1 KB  |  26 lines
  1. TYPE
  2.   LONG_STRING = STRING[255];
  3.  
  4. {****************************************************************************}
  5. FUNCTION REPLICATE (                          {* REPEAT A CHARACTER         *}
  6.                      COUNT : INTEGER;         {* NUMBER OF REPITITIONS      *}
  7.                      ASCII : CHAR             {* CHARACTER TO BE REPEATED   *}
  8.                     )      : LONG_STRING;      {* STRING CONTAINING REPEATED *}
  9.                                               {* CHARACTER                  *
  10.  * THIS FUNCTION TAKES THE CHARACTER IN 'ASCII', REPEATS IT 'COUNT' TIMES   *
  11.  * AND RETURNS THE RESULTING STRING AS A 'LONGSTRING'                                        *
  12.  ****************************************************************************}
  13.  
  14. VAR
  15.   TEMP : LONG_STRING;  {USED TO HOLD THE INCOMPLETE RESULT}
  16.   I    : BYTE;         {FOR COUNTER}
  17.  
  18. BEGIN
  19.   TEMP := '';
  20.   FOR I := 1 TO COUNT DO
  21.     TEMP := TEMP + ASCII;
  22.   REPLICATE := TEMP;
  23. END; {REPLICATE}
  24.  
  25. {****************************************************************************}
  26.