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; }
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; }