[ecfisa]

Hola.

Los valores actuales de los formatos de la configuración regional, también se pueden obtener consultando directamente las variables.

Ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender) {
char const* MSGE = "Separador %s: [ %s ]";

  ShowMessage(
    Format(MSGE, ARRAYOFCONST(("decimal ",DecimalSeparator))) +'\n'+
    Format(MSGE, ARRAYOFCONST(("de miles",ThousandSeparator))) +'\n'+
    Format(MSGE, ARRAYOFCONST(("de fecha",DateSeparator))) +'\n'+
    Format(MSGE, ARRAYOFCONST(("de lista  ",ListSeparator))) 
    //...
  );
}

Saludos.