首頁 > 資訊科技 > Delphi開發 > delphi如何切割字串SpliteString
2008
03-28

delphi如何切割字串SpliteString

這是一個很普遍的切割字串的副程式,例如像是字串 A = '192.168.1.1',要把他切割成 A[0]='192',A[1]='168',A[2]='1',A[3]='1',是很方便唷。

[delphi]{-------------------------------------------------------------------------------
程序名稱: SplitString 切割文字
作 者: Administrator
日 期: 2007.12.03
傳 入 值: const Source,ch:string
返 回 值: TStringList
-------------------------------------------------------------------------------}
function SplitString(const Source,ch:string):TStringList;
var
temp:String;
i:Integer;
begin
Result:=TStringList.Create;
//如果是空字串的話
if Source=''
then exit;
temp:=Source;
i:=pos(ch,Source);
while i<>0 do
begin
Result.add(copy(temp,0,i-1));
Delete(temp,1,i);
i:=pos(ch,temp);
end;
Result.add(temp);
end;
[/delphi]
使用範例
[delphi] tstring := SplitString('192.168.1.1','.');
Result:=tstring[0]+'.'+ tstring[1]+'.'+tstring[2]+'.*';
[/delphi]

最後修改日:
作者:蔡 小翰

常見問題:

  1. 文章可以轉貼嗎?可以,不過請要註明出處並標示本站連結。
  2. 載點可以轉貼嗎?可以,歡迎隨意盜連,無須告知。
  3. 反盜版聲明:本站支持正版軟體,請勿討論破解版、快樂版、註冊碼、註冊機、序號...等違法主題。
  4. 檔案無法解壓縮或解壓縮時發生錯誤?請使用7-Zip解壓縮
  5. 更多細節請參閱使用條款及免責聲明


發表迴響