請問一下刪除字元的函數 |
答題得分者是:cashxin2002
|
andygod
一般會員 發表:7 回覆:7 積分:2 註冊:2002-11-16 發送簡訊給我 |
|
Jasonwong
版主 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
|
andygod
一般會員 發表:7 回覆:7 積分:2 註冊:2002-11-16 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 您可結合Pos函數和Delete函數來完成﹐如下﹕
procedure TForm1.Button3Click(Sender: TObject); Var S : String; I : Integer; begin S := 'Delphi is good!'; I := Pos('!',S); Delete(S, I, 1); ShowMessage(S); end; //Pos函數的作用是尋找子字串在字串中的位置﹐以上範例即是 //在字串Delphi is good!中尋找!﹐并將其位置回傳給孌數I //再使用Delete字串刪除函數將其刪除以上的方法是刪除單個字串的方法﹐如果需要刪除字串中所有相符的子字串﹐可使用While...do的迴圈方法來處理﹐程式碼如下﹕ procedure TForm1.Button1Click(Sender: TObject); Var S : String; I : Integer; begin S := 'Delphi is good!'; While Pos('i', s)>0 do begin I := Pos('i',S); Delete(S, I, 1); end; ShowMessage(S); end; //以上程式碼即可刪除字串中所有內容為i的子字串參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/10/02 16:55:31
------
忻晟 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |