_strcspn的DELPHI实现

近日研究SQLite3在delphi中的静态引用，从网上找到的打包版本确实能用，
但是当记录接近甚至超过10000条时，数据库的速度就太慢了，能明显感觉到卡顿。
后来找到了较高的OBJ版本，编译成exe时，又出现新的问题，如下面的这个
函数，从网上找到原始版本在搜索数字时要么没结果，要么就是死掉了。
耐心的找网上的说明无果，只好自己研究函数的使用说明，才发现result乱写的，
根本不对，是造成搜索无果和死锁的原因。
要注意的是低版本的OBJ因为不使用这个函数，所以能顺利编译EXE文件，但太慢。
现将修正好的代码写在下面，期望能给想用SQLite3.OBJ的朋友使用。

function _strcspn(p1 : pchar;p2 : pchar) : integer;Cdecl;
var
  tp1,tp2 : pchar
begin
  if (p1^ = #0) or (p2^ = #0) then
  begin
    result := 0;
    exit;
  end;
  
  tp1 := p1;
  tp2 := p2;
  
  while tp1^ <> #0 do
  begin
    tp2 := p2; //将str2 指针从新指向在字符串的首地址
    while tp2^ <> #0 do
    begin
      if tp2^ = tp1^ then
      begin
         result := tp1 - p1;
         exit;
      end
      else
        inc(tp2);
    end;
    inc(tp1);
end;
  result := tp1-p1;
end;