Dear all.. 請教一個問題，請問如何搜尋一個字串裡的特別字，並傳回特別字在字串裡的位置.... 如： a := '1234567890 asdfasdfasf'; ^ 若我想要找到特別字' '字，即傳回值為'11'。 請各位大大幫幫忙..... 感激不盡...

可用POS函數呀! 用法就看看help摟!

AnsiString str; str="1234567890 abcdef"; int i=str.Pos(" "); Button1->Caption=i;

var a : string; x : integer; begin a := '1234567890 asdfasdfasf'; x := pos(' ',a); showmessage(inttostr(x)); end; kevin

------
kevin

hi andy0412 你好: 如果要自行寫程式碼可用以下的程式區段: [code] function Tform1.sear_location(m_str:string;d_str:string):integer; var i,k : integer; len : integer; begin k := 0; for i := 1 to length(m_str) - length(d_str) 1 do begin if copy(m_str,i,length(d_str) = d_str then begin k := i; break; end; end; result := k; //傳回零表示沒有符合的字 end;

不好意思,程式碼編排沒弄好,再重貼一次    如果要自行寫程式碼可用以下的程式區段:

function Tform1.sear_location(m_str:string;d_str:string):integer;
var
i,k : integer;
len : integer;
begin
   k := 0;
   for i := 1 to length(m_str) - length(d_str)   1 do begin
       if copy(m_str,i,length(d_str) = d_str then begin
          k := i;
          break;
       end;
   end;
   result := k; //傳回零表示沒有符合的字
end;

感謝以上回應的朋友~ 我已用您們所提供的程式得要我要的東西了~ 感謝再感謝~