自己做了一个类似vb里面slipt函数,大家指教

Question

unit llyfunc;
interface
uses
  SysUtils, Windows, Classes,Controls, Forms,
  Buttons, ExtCtrls, strUtils,StdCtrls ; type Tmyarr=array of string;
 Procedure split(sourceStr :string;splitstr:string;  var aArray :tmyarr ) ; 
implementation    Procedure split(sourceStr :string;splitstr:string;  var aArray :tmyarr ) ;
var
        LenOfSourcestr,leftsize,tmpCount,LenOfArray:integer;//leftsize用来得到已经用过的子串长度
        tempresult:string;
        replacestr:string;begin
replacestr:=sourcestr;
lenofsourcestr:=length(sourcestr);
leftsize:=0;
tmpcount:=0;
lenofarray:=1;
  while pos(splitstr,rightstr(replacestr,lenofsourcestr-leftsize))>0  do
    begin
      leftsize:=leftsize+pos(splitstr,rightstr(replacestr,lenofsourcestr-leftsize));
      inc(lenofarray);
    end;    setlength(aarray,lenofarray);    while pos(splitstr,replacestr)>0 do
    begin
    tempresult:=copy(replacestr,0,pos(splitstr,replacestr)-1);
    aarray[tmpcount]:=tempresult;
    replacestr:=rightstr(replacestr,length(replacestr)-pos(splitstr,replacestr));
    inc(tmpcount);    end;
    aarray[tmpcount]:=replacestr;end ;
end.

Answer 1

基本思路是查找字串中得特殊字符,然后设置数组长度,一段一段得截取字串.现在的缺点是不能用字符串做分隔符号.大家帮我改改吧.