Data Source=F:\Documents and Settings\Administrator\桌面\AQEdb.mdb 上述字串，我如何用函數，或是其它方法 統計出 \ 出現的次數

http://delphi.ktop.com.tw/topic.php?topic_Id=37173 http://delphi.ktop.com.tw/topic.php?topic_id=28123 --- 屬於那自己生命的歌 不管是什麼顏色 發表人 - hagar 於 2004/03/02 16:52:28

Sorry.        ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2004/03/02 16:53:30

------
忻晟

How about this lazy and slow method :

手癢,也來湊熱鬧,不過只適用判斷單一字元    

    procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
    i,j:integer;
begin        s1:='a';
    s2:='aaabbbaaadddaaa';
    j:=0;
    for i:=0 to length(s2) do begin
       if s2[i]=s1 then inc(j);
    end;
    showmessage (inttostr(j));    end;