Delphi实用自定义函数

//通过分隔符获取若干子串
function Split(const Source,ch:string):TStringList;
var
  temp:String;
  i:Integer;
begin
  Result:=TStringList.Create;
  if Source=” then exit;
  temp:=Source;
  i:=pos(ch,Source);
  while i<>0 do
  begin
     Result.add(copy(temp,0,i-1));
     Delete(temp,1,i);
     i:=pos(ch,temp);
  end;
  Result.add(temp);
end;
//将字符串中的指定子串替换成特定子串,返回一个新字符串
function Replace(mainstr,substr,replacestr:String):String;
var instr,sublen,mainlen:Integer;
    templ,tempr:String;
begin
  sublen:=length(substr);
  mainlen:=length(mainstr);
  if (sublen=0) or (sublen>mainlen) or (substr=replacestr) then
  begin
    result:=mainstr;
    Exit;
  end;
  while pos(substr,mainstr)<>0 do
  begin
    instr:=pos(substr,mainstr);
    templ:=Copy(mainstr,1,instr-1);
    tempr:=Copy(mainstr,instr+sublen+1,mainlen);
    mainstr:=templ+replacestr+tempr;
  end;
  result:=mainstr;
end;

本文固定链接: http://www.ccsbbs.com.cn/archives/6401.html | 极限手指

该日志由 极限手指 于2013年04月11日发表在 Delphi 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: Delphi实用自定义函数 | 极限手指

Delphi实用自定义函数:等您坐沙发呢!

发表评论

您必须 [ 登录 ] 才能发表留言!