假使我要在某一字串中找出某個字 該如何做??? 如:在"物件導向討論區" 這個字串中 如何找到"向"這個字 -急!急!急!-

TTS 兄 您好: 提問的智慧 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20571 文章當中切勿含有[急][求救]等無意義的字眼] 謝謝您的配合

用pos涵數 Delphi syntax: function Pos(Substr: string; S: string): Integer; Description In Delphi, Pos searches for a substring, Substr, in a string, S. Substr and S are string-type expressions. Pos searches for Substr within S and returns an integer value that is the index of the first character of Substr within S. Pos is case-sensitive. If Substr is not found, Pos returns zero. The PosEx function is similar to Pos, but provides additional features and can be used in C code. 例如 if pos('向','物件導向討論區')>0 then showmessage('找到了'); 「堅持」從洗馬桶做起 Aric

請問huangeider 中文字不是兩碼嗎 那用pos回傳值會是什麼呢???

您好!    Pos函數傳回的是一個數值, 如果回傳的數值大于0, 則表示在字串中找到子字串, 其接受String形態, 範例如下:

Var
  S : String;
  I : Integer;
begin
  S := ' Delphi is good ';
  While Pos(' ', S) > 0 do
    begin
      I := Pos(' ', S);
      S[I] := '_';
    end;
  ShowMessage(S);
end;
//以上程式碼會將' Delphi is good 'String字串改成'_Delphi_is_good_'

另外還有一個函數StrPos, 也可尋找子字串在字串中的位置, 但只接受PChar形態, 回傳PChar形態, 範例如下:

Const
  P1 : PChar = 'Delphi is good';
  P2 : PChar = 'is';
Var
  ReturnPoint : PChar;
begin
  ReturnPoint := StrPos(P1, P2);
    if ReturnPoint = nil then
      ShowMessage('找不到指定的字串' P2)
    else
      ShowMessage(P2 '出現在第' IntToStr(RetrunPoint-P1) '個字');
end; 

參考看看! ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟

請問huangeider 中文字不是兩碼嗎 那用pos回傳值會是什麼呢??? 若只要確定有無此中文的話試試這個 if not(stringreplace(s,'向','',[rfReplaceAll])='物件導向討論區') then showmessage('找到了'); 「堅持」從洗馬桶做起 Aric

AnsiPos --> support BIG5