home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1164 / strings.int < prev    next >
Encoding:
Text File  |  1993-09-14  |  2.5 KB  |  70 lines
  1. unit Strings;
  2.  
  3. { Version 4.1
  4.   (c) 1993 by
  5.       Jochen Göttler
  6.       Im Dellbrunnen 6
  7.       D-66954 Pirmasens
  8.       Tel: 06331/92788
  9.       Fax: 06331/93620
  10. }
  11.  
  12. {$A+,B-,D-,F-,I-,L-,O-,R-,S-,V-,X-}
  13.  
  14.  
  15. interface
  16.  
  17.  
  18. const MaxLaenge=1000;
  19.  
  20. type  LongString= Array[0..MaxLaenge] of Char;
  21.  
  22. function  Left(s: String; n: Integer): String;
  23.           {  n Zeichen von links  }
  24. function  Right(s: String; n: Integer): String;
  25.           {  n Zeichen von rechts  }
  26. function  Middle(s: String; p1, p2: Integer): String;
  27.           {  Liefert Teilstring von Position p1 bis p2 aus s  }
  28. function  First(s: String; p: Integer): String;
  29.           {  Liefert Stringanfang ohne die letzten p Zeichen  }
  30. function  Rest(s: String; p: Integer): String;
  31.           {  Liefert Stringrest ab p-tem Zeichen  }
  32. function  Difference(s1, s2: String): String;
  33.           {  Entfernt s2 aus s1  }
  34. procedure Divide(s1, s2: String; var sl, sr: String);
  35.           {  Sucht s2 in s1 und liefert Strings links und rechts davon  }
  36. procedure Replace(var s: String; s1, s2: String);
  37.           {  Ersetzt alle Vorkommen von s1 in s durch s2  }
  38. function  RPos(s1, s2: String): Byte;
  39.           {  Wie Pos(s1,s2), Suche jedoch von rechts beginnend  }
  40. procedure SwapString(var s1, s2: String);
  41.           {  Vertauscht s1 und s2  }
  42. function  Dup(s: String; i: Byte): String;
  43.           {  s i-fach  }
  44. function  UpCaseGr(c: Char): Char;
  45.           {  UpCase für deutsches Alphabet  }
  46. function  UpCaseGrStr(s: String): String;
  47.           {  UpCaseGr für kompletten String  }
  48. function  DownCaseGr(c: Char): Char;
  49. function  DownCaseGrStr(s: String): String;
  50. function  eqS(s1, s2: String): Boolean;
  51.           {  s1 Anfang von s2 oder umgekehrt?  }
  52. function  LB(s: String; l: Byte): String;
  53.           { Linksbündiges Formatieren auf Länge l  }
  54. function  LLength(s: LongString): Word;
  55. function  LGleich(s1, s2: LongString): Boolean;
  56. procedure LClear(var s: LongString);
  57. function  Short(s: LongString): String;
  58. procedure Long(ss: String; var s: LongString);
  59. procedure LConcat(s1, s2: LongString; var sr: LongString);
  60. procedure LCopy(s: LongString; p, z: Word; var sr: LongString);
  61. procedure LInsert(s1: LongString; var s2: LongString; p: Word);
  62. procedure LDelete(var s: LongString; p, z: Word);
  63. function  LPos(s1: String; s2: LongString): Word;
  64.           {  L...:  Stringoperationen für LongString;
  65.              Short: Typumwandlung LongString -> String
  66.              Long:  Typumwandlung String -> LongString
  67.           }
  68.  
  69.  
  70. end.