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'这三个单独的值?”这话到底问什么