请各为大虾帮帮小弟

Question

procedure TFqyqk.FiltedByXkzh(xh: string);
var
  S: string;
begin
  if not ChuUser then
    S := '管理部门=' + QuotedStr(UserGroup);***qutoedstr（）大家知道大概什么
  S := S + ' and 许可证注册号=' + QuotedStr(xh);****************    意思  DelTokenAtFirst(S, ' and ');*****DelTokenAtFirst（）什么意思？
  tQyjbqkb.Filter := S;
  pnlSearch.Hint := S;
  strRecCount := IntTostr(RecordCount('qyjbqkb', tQyjbqkb.Filter));
end;  这句什么意思！

Answer 1

qutoedstr（）给字符串加上单引号;
DelTokenAtFirst（）?自定义的过程吧

Answer 2

DelTokenAtFirst是自编的函数～～
估计就是除掉第一个无用的' and '～～

Answer 3

qutoedstr（）给字符串加上单引号;
我经常用在SQL语句中。
DelTokenAtFirst（）是自定义函数，你可以看一下源代码。

Answer 4

RecordCount（）是自编的函数吧！

Answer 5

qutoedstr（）给字符串加上单引号;

Answer 6

DelTokenAtFirst（）: 从指定的字符串（S）开始起，去处指定的子串（and）。