如题

沒必要另外開一個問題吧. 節錄一段 Indy.hlp 內文 :

Separates a string into a list of tokens using a specified delimiter.    function BreakApart(BaseString: string; BreakString: string; StringList: TStrings): TStrings;    Parameters    BaseString: string    Values to be broken into tokens.    BreakString: string    Delimiter between tokens in the origin data.    StringList: TStrings    Container for tokens found in the origin data.    Returns    TStrings - Container for tokens found in the string value.    Description    BreakApart is a TStrings function that separates the values in BaseString into tokens using the delimiter specified in BreakString. Tokens are extracted from BaseString starting at the left-most position, and continuing until no more data remains to be processed in BaseString.
If BreakString does not occur in BaseString, the entire value in BaseString is added to StringList as a single token.
The return value for the function is the argument specified in StringList after tokens have been added to the container.    節錄自 IdGlobal.pas :    function BreakApart(BaseString, BreakString: string; StringList: TStrings): TStrings;
var
  EndOfCurrentString: integer;
begin
  repeat
    EndOfCurrentString := Pos(BreakString, BaseString);
    if (EndOfCurrentString = 0) then
    begin
      StringList.add(BaseString);
    end
    else
      StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
    delete(BaseString, 1, EndOfCurrentString + Length(BreakString) - 1); //Copy(BaseString, EndOfCurrentString + length(BreakString), length(BaseString) - EndOfCurrentString);
  until EndOfCurrentString = 0;
  result := StringList;
end;    

我用的是delphi6.0，为什么我的delphi里面没有idglobal这个文档的，真的怪，所以breakapart这个函数也用不了

可能是 Indy 版本差異.    你可以直接將綠色部分 Source Code, 貼入unit使用, 這樣就不須 uses IdGlobal < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=9196579&CC=205681">