home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 11 / tricks / txstring.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-07  |  1021 b   |  36 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    TXSTRING.PAS                        *)
  3. (*               Zeichenketten-Routinen                   *)
  4. (* ------------------------------------------------------ *)
  5. UNIT txString;
  6.  
  7. INTERFACE
  8.  
  9.   FUNCTION  Right(s : STRING; L : WORD) : STRING;
  10.   { Stellt die L-ten Stellen eines Strings von rechts dar  }
  11.   { entspricht dem BASIC'schen RIGHT$                      }
  12.  
  13.   FUNCTION  Fill(ch : CHAR; L : WORD) : STRING;
  14.   { Fill ist ein String mit L-Mal dem Zeichen C            }
  15.  
  16. IMPLEMENTATION
  17.  
  18.   FUNCTION Right(s : STRING; L : WORD) : STRING;
  19.   BEGIN
  20.     Right := Copy(s, Length(s) - L + 1, Length(s));
  21.   END;
  22.  
  23.   FUNCTION Fill(ch : CHAR; L : WORD) : STRING;
  24.   VAR
  25.     x  : INTEGER;
  26.     st : STRING;
  27.   BEGIN
  28.     st := '';
  29.     FOR x := 1 TO L DO st := st + ch;
  30.     Fill := st;
  31.   END;
  32.  
  33. END.
  34. (* ------------------------------------------------------ *)
  35. (*                 Ende von TXSTRING.PAS                  *)
  36.