home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp11demo.zip / rtlsrc.rar / rtl / STRINGS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-08  |  2KB  |  42 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal Runtime Library.  Version 1.0.    █}
  4. {█      String Handling Unit (ASCIIZ)                    █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1995 fPrint UK Ltd                 █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9. {$S-,R-,Q-,I-,Cdecl-,OrgName-,AlignRec-,PureInt+}
  10.  
  11. unit Strings;
  12.  
  13. interface
  14.  
  15. uses Use32;
  16.  
  17. function StrLen(Str: PChar): Word;
  18. function StrEnd(Str: PChar): PChar;
  19. function StrMove(Dest, Source: PChar; Count: Word): PChar;
  20. function StrCopy(Dest, Source: PChar): PChar;
  21. function StrECopy(Dest, Source: PChar): PChar;
  22. function StrLCopy(Dest, Source: PChar; MaxLen: Word): PChar;
  23. function StrPCopy(Dest: PChar; Source: String): PChar;
  24. function StrCat(Dest, Source: PChar): PChar;
  25. function StrLCat(Dest, Source: PChar; MaxLen: Word): PChar;
  26. function StrComp(Str1, Str2: PChar): Integer;
  27. function StrIComp(Str1, Str2: PChar): Integer;
  28. function StrLComp(Str1, Str2: PChar; MaxLen: Word): Integer;
  29. function StrLIComp(Str1, Str2: PChar; MaxLen: Word): Integer;
  30. function StrScan(Str: PChar; Chr: Char): PChar;
  31. function StrRScan(Str: PChar; Chr: Char): PChar;
  32. function StrPos(Str1, Str2: PChar): PChar;
  33. function StrUpper(Str: PChar): PChar;
  34. function StrLower(Str: PChar): PChar;
  35. function StrPas(Str: PChar): String;
  36. function StrNew(Str: PChar): PChar;
  37. procedure StrDispose(Str: PChar);
  38.  
  39. implementation
  40.  
  41. end.
  42.