www.pudn.com > pino3srv-src.zip > tools.pas

unit tools; 
 
interface 
 
uses Classes; 
 
procedure DivUp(st,sep:string;sl:TStrings;min,max:Byte); 
function GetCheckSum(st:string):Integer; 
 
implementation 
 
uses crc32; 
 
procedure DivUp(st,sep:string;sl:TStrings;min,max:Byte); 
var i,l:Integer; 
  begin 
    Dec(max); 
    l:=Length(sep); 
    sl.Clear; 
    while st<>'' do 
      begin 
        i:=Pos(sep,st); 
        if (i=0)or(max=sl.Count) then i:=Length(st)+1; 
        sl.Add(Copy(st,1,i-1)); 
        Delete(st,1,i+l-1); 
      end; 
    while sl.Count