Returns a substring of a string or a segment of a dynamic array. Unit System Category string handling routines Delphi syntax: function Copy(S; Index, Count: Integer): string; function Copy(S; Index, Count: Integer): array;
var vStr:String; begin vStr:='1234567890'; Result:=Copy(vStr,3,4); //取出vStr中起始位置为3,长度是4的子串,为'3456' end;
copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255)length(str) 返回str的字符个数,即其长度. {返回两个子字符串之间字符的个数} Function p2pcount( s, ss1, ss2 : string ): integer; var i, j, slen : integer; begin i := pos( ss1, s ); j := pos( ss2, s ); slen := Length(ss2); if j >= i then Result := j - i + slen else Result := 0; end;
Unit
System
Category
string handling routines
Delphi syntax:
function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;
vStr:String;
begin
vStr:='1234567890';
Result:=Copy(vStr,3,4); //取出vStr中起始位置为3,长度是4的子串,为'3456'
end;
concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255)length(str) 返回str的字符个数,即其长度.
{返回两个子字符串之间字符的个数}
Function p2pcount( s, ss1, ss2 : string ): integer;
var i, j, slen : integer;
begin
i := pos( ss1, s );
j := pos( ss2, s );
slen := Length(ss2);
if j >= i then Result := j - i + slen else Result := 0;
end;