1. Delphi K.Top 討論區
  2. 難以歸類主題的討論區(Delphi)
  3. dilphi有去除空字元的涵數?
線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數：1358
推到 Plurk!
推到 Facebook!

dilphi有去除空字元的涵數?
尚未結案
huangeider
高階會員


發表：288
回覆：492
積分：231
註冊：2003-02-26

發送簡訊給我
#1 引用回覆 回覆 發表時間：2003-11-01 17:05:51 IP:61.231.xxx.xxx 未訂閱
如'  1  2 /33 6' 要用delphi的去除空字元 結果是'12/336' 好像看過這個涵數 「堅持」從洗馬桶做起
Jasonwong
版主


發表：49
回覆：931
積分：581
註冊：2006-10-27

發送簡訊給我
#2 引用回覆 回覆 發表時間：2003-11-01 17:30:55 IP:203.75.xxx.xxx 未訂閱
我是不知道 DELPHI 裡有什麼去除空字元的函數 不過我知道可以 ReplaceString (置換函數) 去置換空白的字元 一樣可達到你要的效果 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心
huangeider
高階會員


發表：288
回覆：492
積分：231
註冊：2003-02-26

發送簡訊給我
#3 引用回覆 回覆 發表時間：2003-11-01 17:43:40 IP:61.231.xxx.xxx 未訂閱
查了delphi的help 沒找到replacestring這個涵數 大大的意思是 自已寫一個嗎? 如 
var
a:string;
begin
a:='';
for i:=1 to length(xxx) do
begin
  if not (xxx[i]=' ') then
   a:=a xxx[i];
end;
不過好像有看過 記憶力真差 「堅持」從洗馬桶做起
Jasonwong
版主


發表：49
回覆：931
積分：581
註冊：2006-10-27

發送簡訊給我
#4 引用回覆 回覆 發表時間：2003-11-01 18:23:32 IP:203.75.xxx.xxx 未訂閱
抱歉...我打錯字了... 應該是 StringReplace 才對 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心
huangeider
高階會員


發表：288
回覆：492
積分：231
註冊：2003-02-26

發送簡訊給我
#5 引用回覆 回覆 發表時間：2003-11-01 21:58:47 IP:61.231.xxx.xxx 未訂閱
procedure TForm1.Button1Click(Sender: TObject); var Flags: TReplaceFlags; begin edit1.Text:=StringReplace(edit1.Text,' ','',flags); end; Jasonwong 大大 這個涵數按一次button只能換一個要置換的字元嗎? flags 這個參數我不會用 可以改flags 參數嗎? 「堅持」從洗馬桶做起 Aric
cashxin2002
版主


發表：231
回覆：2555
積分：1937
註冊：2003-03-28

發送簡訊給我
#6 引用回覆 回覆 發表時間：2003-11-02 00:12:10 IP:63.84.xxx.xxx 未訂閱
您好!    StringReplace的使用範例: Edit1.Text:=StringReplace(Edit1.Text,' ','',[rfReplaceAll, rfIgnoreCase]);    小弟覺得Pos函數(尋找子字串在字串中的位置函數)也應可以做到: 
Var
  S : String;
  I : Integer;
begin
  S := Edit1.Text;
  While Pos(' ', S)>0 do
  begin
    I := Pos(' ', S);
    S[I] := '';
  end;
end;
參考看看! ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
huangeider
高階會員


發表：288
回覆：492
積分：231
註冊：2003-02-26

發送簡訊給我
#7 引用回覆 回覆 發表時間：2003-11-02 00:43:38 IP:61.231.xxx.xxx 未訂閱 
Var
  S : String;
  I : Integer;
begin
  S := Edit1.Text;
  While Pos(' ', S)>0 do
  begin
    I := Pos(' ', S);
    S[I] := '';這裏型態會不同char and string
  end;
end;
該怎改呢? 「堅持」從洗馬桶做起 Aric
syntax
尊榮會員


發表：26
回覆：1139
積分：1258
註冊：2002-04-23

發送簡訊給我
#8 引用回覆 回覆 發表時間：2003-11-02 22:27:50 IP:203.203.xxx.xxx 未訂閱
引言: 
Var
  S : String;
  I : Integer;
begin
  S := Edit1.Text;
  While Pos(' ', S)>0 do
  begin
    I := Pos(' ', S);
    S[I] := '';這裏型態會不同char and string
  end;
end;
該怎改呢? 「堅持」從洗馬桶做起 Aric
這樣只是將該位子設成 '' 並物去除該字元,只是他不是空白,顯示所佔的位置較小,並未消失 還是用 
procedure TForm1.Button1Click(Sender: TObject);
var Flags: TReplaceFlags;
begin    edit1.Text:=StringReplace(edit1.Text,' ','',[rfReplaceAll]);    end;
系統時間：2024-07-07 20:35:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |