xstring.pas

来自「很久以前用delphi写的一个SQLServer外部的企业管理器」· PAS 代码 · 共 44 行

unit XString;

interface
uses SysUtils;

Function GetSplitCount(MainStr:String;SplitStr:String):Integer;
Function SplitStr(MainStr:String;SplitStr:Char;var BeginPos:integer):String;

implementation
Function GetSplitCount(MainStr:String;SplitStr:String):Integer;
var i:integer;
begin
  result:=0;
   for i:=1 to Length(MainStr) do
   begin
      if MainStr[i]=SplitStr then
      inc(result);
   end;

end;

Function SplitStr(MainStr:String;SplitStr:Char;var BeginPos:integer):String;
var i:integer;
    tempstr1:String;
begin
    for i:=BeginPos to Length(Mainstr) do
    begin
      if  MainStr[i]=SplitStr then
       begin
          result:=trim(tempstr1);
          BeginPos:=i+1;
          exit;
       end
       else begin
          tempstr1:=tempstr1+ MainStr[i];
       end;
    end;
    result:='';
    BeginPos:=0;

end;

end.