var
Tmp_str,GroupId : String;
p : integer;
begin
Tmp_str := Trim(AStr);
p := Pos(Filter,tmp_Str);
GroupId := Copy(tmp_Str,1,p-1);
GroupId := Trim(GroupId);
Result := GroupId;
end;
希望能把每一行的意思,解释的清楚一点,
...全文
28回复打赏收藏
下面这段是什么意思
var Tmp_str,GroupId : String; p : integer; begin Tmp_str := Trim(AStr); p := Pos(Filter,tmp_Str); GroupId := Copy(tmp_Str,1,p-1); GroupId := Trim(GroupId); Result := GroupId; end; 希望能把每一行的意思,解释的清楚一点,