ExtractStrings의 버그를 SeparateStrings 으로 해결

참조 : 

http://www.borlandtalk.com/extractstrings-question-vt90577.html

TStrings 사용하려면 -> #include <Classes.hpp>

int __fastcall SeparateStrings(const AnsiString &AString, char ADelimiter, TStrings *AStrings)

{ 

  int Result = 0; 

  if( (AString.Length() > 0) && (AStrings) ) { 

    AStrings->BeginUpdate(); 

    try 

    { 

      char *ptr = const_cast<AnsiString&>(AString).c_str(); 

      char *end = (ptr + AString.Length()); 

      while( (*ptr <= ' ') && (ptr < end) ) 

      ++ptr; 

      char *start = ptr; 

      bool InQuote = false; 

      while( ptr < end ) 

      { 

        if( (*ptr == ADelimiter) && (!InQuote) ) 

        { 

          AStrings->Add(AnsiString(start, ptr-start)); 

          ++Result; 

          start = ++ptr; 

        } 

        else if( *ptr == '"' ) 

        { 

          InQuote = !InQuote; 

          ++ptr; 

        } 

        else 

          ++ptr; 

      } 

      if( start < end ) 

      { 

        AStrings->Add(AnsiString(start, end-start)); 

        ++Result; 

      } 

    } 

    __finally { 

      AStrings->EndUpdate(); 

    } 

  } 

  return Result; 

}