Function Tform1.GetSubStr(varaString:String; SepChar:String):String;
var
Mystr:String;
StrLen:Integer;
SepCharPos:Integer;
varastring1:string;
i,j:Integer;
begin
for j:=1 to 3 do
begin
StrLen:=Length(varaString);
SepCharPos:=Pos(SepChar,varaString); //计算分割符在子串中的位置
MyStr:=Copy(varaString,1,SepCharPos-1);//将分割符前所有字符放到mystr串中
Delete(varaString,1,SepCharPos);//除去分割符和分割符前的子串
GetSubStr:=MyStr;//返回一个字段
end;
end; 修改成这样之后,MyStr应该只返回men这个值。不过“请问MyStr的值为什么不是'I'还有'am'还有'men'这三个单独的值?”这话到底问什么
var
Mystr:String;
StrLen:Integer;
SepCharPos:Integer;
varastring1:string;
i,j:Integer;
begin
for j:=1 to 3 do
begin
StrLen:=Length(varaString);
SepCharPos:=Pos(SepChar,varaString); //计算分割符在子串中的位置
MyStr:=Copy(varaString,1,SepCharPos-1);//将分割符前所有字符放到mystr串中
Delete(varaString,1,SepCharPos);//除去分割符和分割符前的子串
GetSubStr:=MyStr;//返回一个字段
end;
end; 修改成这样之后,MyStr应该只返回men这个值。不过“请问MyStr的值为什么不是'I'还有'am'还有'men'这三个单独的值?”这话到底问什么
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货