請問各位大大Delphi如何達到Visual C# (.NET 2.0)中Split的功能?

小弟沒用 C#
下面程式碼看看是否合用

<textarea class="delphi" rows="10" cols="60" name="code"> function split(split_str : string ; line_str : string ) : TStrings ; //字串分割 分割用字元 , 原始字串， var posi : integer ; str : TStringList ; l_str : string ; begin str := TStringList.Create; posi := pos(split_str, line_str) ; while (posi > 0) do begin l_str := copy(line_str,1, posi-1) ; str.Add(l_str) ; line_str := copy (line_str , posi length(split_str), length(line_str) - posi-length(split_str)) ; posi := pos(split_str, line_str) ; end ; //while str.Add(line_str) ; Result := str ; end ; </textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

或者用  Delimiter 和 DelimitedText

這裡有範例
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=48648 

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

發現此Code超過5個引數會有BUG
如
1;2;3;4;5;6;7;
===================引 用 pcboy 文 章===================
小弟沒用 C#
下面程式碼看看是否合用

<textarea class="delphi" rows="10" cols="60" name="code">function split(split_str : string ; line_str : string ) : TStrings ; //字串分割 分割用字元 , 原始字串， var posi : integer ; str : TStringList ; l_str : string ; begin str := TStringList.Create; posi := pos(split_str, line_str) ; while (posi > 0) do begin l_str := copy(line_str,1, posi-1) ; str.Add(l_str) ; line_str := copy (line_str , posi length(split_str), length(line_str) - posi-length(split_str)) ; posi := pos(split_str, line_str) ; end ; //while str.Add(line_str) ; Result := str ; end ; </textarea>

回應 pcboy 大大
我在用時發現會截掉後面的字元(以','去split), 我稍微修改之後就可以, 但沒道理,
我覺得大大的code應該沒問題啊? 奇怪!!.
[code delphi]
function split(split_str : string ; line_str : string ) : TStrings ;
//字串分割 分割用字元 , 原始字串，
var
posi : integer ;
str : TStringList ;
l_str : string ;
begin
str := TStringList.Create;
posi := pos(split_str, line_str) ;
while (posi > 0) do begin
l_str := copy(line_str,1, posi-1) ;
str.Add(l_str) ;
//line_str := copy (line_str , posi length(split_str), length(line_str) - posi-length(split_str)) ; <----這會截掉 line_str 後面 length(split_str) 個字元
line_str := copy (line_str , posi length(split_str), length(line_str) - posi) ;
posi := pos(split_str, line_str) ;
end ; //while
str.Add(line_str) ;
Result := str ;
end ;
[/code]

===================引 用 pcboy 文 章===================
小弟沒用 C#
下面程式碼看看是否合用


[code delphi]
function split(split_str : string ; line_str : string ) : TStrings ;
//字串分割 分割用字元 , 原始字串，
var
posi : integer ;
str : TStringList ;
l_str : string ;
begin
str := TStringList.Create;
posi := pos(split_str, line_str) ;
while (posi > 0) do begin
???? l_str := copy(line_str,1, posi-1) ;
???? str.Add(l_str) ;
???? line_str := copy (line_str , posi length(split_str), length(line_str) - posi-length(split_str)) ;
???? posi := pos(split_str, line_str) ;
end ; //while
str.Add(line_str) ;
Result := str ;
end ;

[/code]

編輯記錄

[code delphi]
最簡單是用strings的內建功能,不過只能用char分割


以下2個版本 看得懂那個就用那個(完全一樣功能)

function MultiSpilt(str,substr:string):tstrings;
var
i,sl,k,ssl:integer;
begin
result:=tstringlist.create;
i:=0;
sl:=length(str)-1;
k:=0;
ssl:=length(substr);
while i if k=ssl then begin
result.add(copy(str,1,i-k));
delete(str,1,i-k ssl);
dec(sl,i-k ssl);
i:=0;
k:=0;
end;
if str[i 1]=substr[1 k] then inc(k) else if k>0 then k:=0;
inc(i);
end;
result.add(str);
end;
function MultiSpiltB(str,substr:string):tstrings; // MultiSpiltB(' A%B,C{}AX','{}') A%B,C{}AX=A_%B,C{}AX=A_%B:%C{}AX=A_%B:%C,AX
var
i:integer;
begin
result:=tstringlist.create;
result.CommaText:=
StringReplace(
StringReplace(
StringReplace(str,'%','_%',[rfReplaceAll])
,',',':%',[rfReplaceAll]
)
,substr,',',[rfReplaceAll]
);
for i := 0 to result.Count-1 do begin
result[i]:=StringReplace(
StringReplace(result[i],':%',',',[rfReplaceAll])
,'_%','%',[rfReplaceAll]
);
end;
end;


[/code]

編輯記錄