Delphi中有沒有像VB中的Split函數阿?

參考: http://forum.vclxx.org/topic.php?TOPIC_ID=4342&FORUM_ID=8&CAT_ID=2&Topic_Title=关¤_¦r²Ŧꪺ问题&Forum_Title=Pascal http://programmer.eforum2000.net/pc2020v5/forum/showsametitle.asp?board_pc2020=delphi&id=3953&szKeyword=split http://programmer.eforum2000.net/pc2020v5/forum/showsametitle.asp?board_pc2020=delphi&id=1619&szKeyword=split&selectmethod=content 發表人 - hagar 於 2002/08/29 08:17:37

或:

var 
  sl: TStringList;
  YourString, YourDelimiter: string;
  i: Integer;
begin
  YourString := 'a b c d e f g';
  YourDelimiter := ' ';
  sl := TStringList.Create;
  try
    sl.Text := StringReplace(YourString, YourDelimiter, #13#10, 
                 [rfReplaceAll]);
    for i := 0 to sl.Count - 1 do
      ShowMessage(sl.Strings[i]);
  finally
    sl.Free;
  end;
end;

如果是用Array的方式ㄋ?處理速度上或效率上何者為優ㄋ?    

    ElementCount:Integer;
Dest:Array of String;
MyString:String;    begin
    MyString:='a,b,c,d,e';  //MyString應為變動值,在這暫以a,b,c,d,e代之
    ElementCount:=1;
    while pos(',',MyString)>0 do
    begin
        SetLength(Dest,ElementCount);
        Dest[ElementCount-1]:=Copy(MyString,1,pos(',',MyString)-1);
        ElementCount:=ElementCount 1;
        MyString=Copy(MyString,pos(',',MyString) 1,Length(MyString));
    end;
end;    

像這樣 Dest 這個陣列就是我要的,這樣的優缺點又如何ㄋ?