关于提取字符串中字符的方法

Question

先扫描字符串，找到了"CC?"字符串就截断这个字符串，重新扫描找'/'符号，找到以后截断，剩下的就是你需要的了

Answer 1

function GetStr(s1, s2: String): String;
var
  i: Integer;
  s: String;
  p: PChar;
begin
  i := Pos(s2, s1);
  if i > 0 then
  begin
    s := Copy(s1, 1, i - 1);
    p := StrRScan(PChar(s), '/');
    if p <> nil then
      Result := Copy(s, 1, Length(s) - Integer(StrLen(p)) + 1);
  end;
end;