請問各位知不知有那些元件可以做到 Widestring 的字串搜索? 像 Delphi 內那個 function Pos 一樣..... 我不想中間做轉換(widestring -> string -> widestring)再做搜索，我想直接找出 widestring 內的一些 widechar 或 widestring 字串。 發表人 - tatsu 於 2004/03/23 22:31:26

Hi, 請參考這篇: http://fundementals.sourceforge.net/cUnicode.html    引入兩個 function 即可使用:

function WidePMatch(const M: WideString; const P: PWideChar): Boolean;
var I, L : Integer;
    Q, R : PWideChar;
begin
  L := Length(M);
  if L = 0 then
    begin
      Result := False;
      exit;
    end;
  R := Pointer(M);
  Q := P;
  For I := 1 to L do
    if R^ <> Q^ then
      begin
        Result := False;
        exit;
      end else
      begin
        Inc(R);
        Inc(Q);
      end;
  Result := True;
end;    function WidePos(const F: WideString; const S: WideString; const StartIndex: Integer=1): Integer;
var P : PWideChar;
    I, L : Integer;
begin
  L := Length(S);
  if (StartIndex > L) or (StartIndex < 1) then
    begin
      Result := 0;
      exit;
    end;
  P := Pointer(S);
  Inc(P, StartIndex - 1);
  For I := StartIndex to L do
    if WidePMatch(F, P) then
      begin
        Result := I;
        exit;
      end
    else
      Inc(P);
  Result := 0;
end;

謝謝你的回覆，這個正正是我想要的，以往做這些字串的尋找及轉換， 我都會做兩個 PChar ，然後分段一次次 move 到新的 PChar 去， 到這個 widestring 時，我真的又要想過法子。