delphi如何切割字串SpliteString

 2,184 total views,  2 views today

這是一個很普遍的切割字串的副程式,例如像是字串 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]

發表迴響

%d 位部落客按了讚: