Exemplo n.º 1
0
UnicodeString TStrings::GetCommaText() const
{
  wchar_t LOldDelimiter = GetDelimiter();
  wchar_t LOldQuoteChar = GetQuoteChar();
  FDelimiter = L',';
  FQuoteChar = L'"';
  UnicodeString Result;
  SCOPE_EXIT
  {
    FDelimiter = LOldDelimiter;
    FQuoteChar = LOldQuoteChar;
  };
  Result = GetDelimitedText();
  return Result;
}
Exemplo n.º 2
0
UnicodeString TStrings::GetCommaText() const
{
  wchar_t LOldDelimiter = GetDelimiter();
  wchar_t LOldQuoteChar = GetQuoteChar();
  FDelimiter = L',';
  FQuoteChar = L'"';
  UnicodeString Result;
  auto cleanup = finally([&]()
  {
    FDelimiter = LOldDelimiter;
    FQuoteChar = LOldQuoteChar;
  });
  {
    Result = GetDelimitedText();
  }
  return Result;
}