delphi delphi Copy,Pos,Delete Win Api 版

  function StrStrA(lpFirst, lpSrch: PAnsiChar): PAnsiChar; stdcall; external 'shlwapi.dll' name 'StrStrA'; 
  function StrNCatA(lpFirst, lpSrch: PAnsiChar; cchMax: Integer): PAnsiChar; stdcall; external 'shlwapi.dll' name 'StrNCatA'; 
   
  function Pos(lpSrch, lpFirst:PAnsiChar):Integer; 
  begin 
    Result := DWORD(StrStrA(lpFirst,lpSrch)) - DWORD(lpFirst) + 1; 
  end; 
   
  procedure Delete(lpszStr: PAnsiChar; index, count: Integer); 
  var 
    Len :Integer; 
  begin 
    Len  := lstrlenA(lpszStr); 
    if len = count then 
    begin 
     lstrcpyA(@lpszStr[index - 1], @lpszStr[index + count -1]); 
     ZeroMemory(@lpszStr[index -1], index + count); 
    end else begin 
     lpszStr[index - 1] := #0; 
     StrNCatA(lpszStr, @lpszStr[index + count - 1], Len); 
    end; 
  end; 
   
  function Copy(lpszStr:PAnsiChar; index, count:Integer):PAnsiChar; 
  begin 
    Result := GetMemory(count - index); 
    lstrcpynA(Result, @lpszStr[index -1], count); 
  end; 
  //----------------------------------例子 
  procedure TForm1.Button1Click(Sender: TObject); 
  var 
    buf, tmp: PAnsiChar; 
    i:Integer; 
  begin 
   buf := GetMemory(10); 
   ZeroMemory(buf, 10); 
   StrCopy(buf, 'http://www.lovehuai.cn/'); 
   i   := Pos('u', buf); 
   Delete(buf, i, 2); // 执行后buf = http://www.loveai.cn/ 
   tmp := Copy(buf, 1, 5); 
   Edit1.Text := buf  +  ' pos:' + IntToStr(i) + ' tmp:' + tmp; 
  end;