function TrimString(str:string):string; ___delphi___

function TrimString(str:string):string; var
myStr:string;
begin
myStr:=str;
myStr:=StringReplace(myStr, chr(13)+chr(10), '', [rfReplaceAll]);//删除回车
myStr:=StringReplace(myStr, ' ', '', [rfReplaceAll]);//删除空格
myStr:=StringReplace(myStr, chr(9), '', [rfReplaceAll]);//删除Tab
result:=myStr;


end;


　　　　　　　　　　　　　 查看评论 回复