請問一下 delphi裡面有刪除字串裡某個字元的函數嗎 如第幾個或是某特定字元 請各為前輩指教囉  謝謝 ------------------------------------------- 我隨風而來，隨風而去

 
 var
   s: string;
 begin
   s := 'Honest Abe Lincoln';
   Delete(s,8,4);
   Canvas.TextOut(10, 10, s);        { 'Honest Lincoln' }
 end;

-- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

謝謝 Jasonwong 大大 你的回答 那再請問一下如果是 要刪除特定字元 如"," "\" 有之類的函數嗎 因為有時並不知道 是在字串的第幾個字元  麻煩了   ------------------------------------------- 我隨風而來，隨風而去

您好﹗    您可結合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

------
忻晟