home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9101 / parser / zketten.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-09-12  |  2.1 KB  |  74 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      ZKETTEN.PAS                       *)
  3. (*  enthält Prozeduren und Funktionen zur vollständigen   *)
  4. (*  Kapselung der systemabhängigen Ein-, Aus- und         *)
  5. (*  Verarbeitungsfunktionen für Strings.                  *)
  6. (*        (c) 1991 Andreas Tengicki & DMV-Verlag          *)
  7. (* ------------------------------------------------------ *)
  8. UNIT Zketten;
  9.  
  10. INTERFACE
  11.  
  12.   PROCEDURE InpStr (VAR Text : STRING);
  13.   PROCEDURE InpChr (VAR c    : CHAR);
  14.   PROCEDURE GetChr (VAR c    : CHAR);
  15.  
  16.   FUNCTION  InStr  (Such, Text : STRING) : INTEGER;
  17.   FUNCTION  TeilStr(Such     : STRING;
  18.                     von, bis : INTEGER) : STRING;
  19.   FUNCTION  CatStr (Text1, Text2 : STRING) : STRING;
  20.   FUNCTION  LenStr (Text : STRING) : INTEGER;
  21.  
  22.  
  23. IMPLEMENTATION
  24.  
  25.  
  26.   PROCEDURE InpStr(VAR Text : STRING);
  27.     (* liest eine Zeile über die Tastatur *)
  28.   BEGIN
  29.     ReadLn(Text);
  30.   END;
  31.  
  32.   PROCEDURE InpChr(VAR c : CHAR);
  33.     (* liest ein Zeichen (1 Zeile) über die Tastatur *)
  34.   BEGIN
  35.     ReadLn(c);
  36.   END;
  37.  
  38.   PROCEDURE getchr(VAR c:CHAR);
  39.     (* liest ein Zeichen einer Zeichenfolge über die Tastatur *)
  40.   BEGIN
  41.     Read(c);
  42.   END;
  43.  
  44.   FUNCTION InStr(Such, Text : STRING) : INTEGER;
  45.     (* bestimmt die Position des SUCHtextes im TEXT. *)
  46.     (* Position Null bedeutet: nicht gefunden.       *)
  47.   BEGIN
  48.     InStr := Pos(Such, Text);
  49.   END;
  50.  
  51.   FUNCTION TeilStr(Such     : STRING;
  52.                    Von, Bis : INTEGER) : STRING;
  53.     (* liefert den Teilstring von TEXT zwischen *)
  54.     (* den Positionen VON und BIS.              *)
  55.   BEGIN
  56.     TeilStr := Copy(Such, Von, Bis - Von + 1);
  57.   END;
  58.  
  59.   FUNCTION CatStr(Text1, Text2 : STRING) : STRING;
  60.     (* Kopiert zwei Zeichenketten aneinander *)
  61.   BEGIN
  62.     CatStr := Concat(Text1, Text2);
  63.   END;
  64.  
  65.   FUNCTION LenStr(Text : STRING) : INTEGER;
  66.     (* liefert die echte Länge eines Strings. *)
  67.   BEGIN
  68.     LenStr := Length(Text);
  69.   END;
  70.  
  71. END.
  72. (* ------------------------------------------------------ *)
  73. (*               Ende von ZKETTEN.PAS                     *)
  74.