home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / Misc / Trimstr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-15  |  2.0 KB  |  73 lines
  1. unit TrimStr;
  2.  {$B-}
  3.  {
  4.       File: TrimStr
  5.     Author: Bob Swart [100434,2072]
  6.    Purpose: routines for removing leading/trailing spaces from strings,
  7.             and to take parts of left/right of string (a la Basic).
  8.    Version: 2.0
  9.  
  10.    LTrim()    - Remove all spaces from the left side of a string
  11.    RTrim()    - Remove all spaces from the right side of a string
  12.    Trim()     - Remove all extraneous spaces from a string
  13.    RightStr() - Take a certain portion of the right side of a string
  14.    LeftStr()  - Take a certain portion of the left side of a string
  15.    MidStr()   - Take the middle portion of a string
  16.  
  17.  }
  18.  interface
  19.  Const
  20.    Space = #$20;
  21.  
  22.    function LTrim(Const Str: String): String;
  23.    function RTrim(Str: String): String;
  24.    function Trim(Str: String):  String;
  25.    function RightStr(Const Str: String; Size: Word): String;
  26.    function LeftStr(Const Str: String; Size: Word): String;
  27.    function MidStr(Const Str: String; Size: Word): String;
  28.  
  29.  implementation
  30.  
  31.    function LTrim(Const Str: String): String;
  32.    var len: Byte absolute Str;
  33.        i: Integer;
  34.    begin
  35.      i := 1;
  36.      while (i <= len) and (Str[i] = Space) do Inc(i);
  37.      LTrim := Copy(Str,i,len)
  38.    end {LTrim};
  39.  
  40.    function RTrim(Str: String): String;
  41.    var len: Byte absolute Str;
  42.    begin
  43.      while (Str[len] = Space) do Dec(len);
  44.      RTrim := Str
  45.    end {RTrim};
  46.  
  47.    function Trim(Str: String): String;
  48.    begin
  49.      Trim := LTrim(RTrim(Str))
  50.    end {Trim};
  51.  
  52.    function RightStr(Const Str: String; Size: Word): String;
  53.    var len: Byte absolute Str;
  54.    begin
  55.      if Size > len then Size := len;
  56.      RightStr := Copy(Str,len-Size+1,Size)
  57.    end {RightStr};
  58.  
  59.    function LeftStr(Const Str: String; Size: Word): String;
  60.    begin
  61.      LeftStr := Copy(Str,1,Size)
  62.    end {LeftStr};
  63.  
  64.    function MidStr(Const Str: String; Size: Word): String;
  65.    var len: Byte absolute Str;
  66.    begin
  67.      if Size > len then Size := len;
  68.      MidStr := Copy(Str,((len - Size) div 2)+1,Size)
  69.    end {MidStr};
  70.  
  71.  
  72. end.
  73.