Fórum Configurações Regionais do painel de controle #329071

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  Ind: Integer;
  Txt: String;

begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add(´CurrencyString...: ´+CurrencyString);
  Memo1.Lines.Add(´ThousandSeparator: ´+ThousandSeparator);
  Memo1.Lines.Add(´DecimalSeparator.: ´+DecimalSeparator);
  Memo1.Lines.Add(´CurrencyDecimals.: ´+IntToStr(CurrencyDecimals));
  Memo1.Lines.Add(´´);
  Memo1.Lines.Add(´DateSeparator..: ´+DateSeparator);
  Memo1.Lines.Add(´ShortDateFormat: ´+ShortDateFormat+
                  ´ (´+FormatDateTime(ShortDateFormat, Date)+´)´);
  Memo1.Lines.Add(´LongDateFormat.: ´+LongDateFormat+
                  ´ (´+FormatDateTime(LongDateFormat, Date)+´)´);
  Memo1.Lines.Add(´TimeSeparator..: ´+TimeSeparator);
  Memo1.Lines.Add(´TimeAMString...: ´+TimeAMString);
  Memo1.Lines.Add(´TimePMString...: ´+TimePMString);
  Memo1.Lines.Add(´ShortTimeFormat: ´+ShortTimeFormat);
  Memo1.Lines.Add(´LongTimeFormat.: ´+LongTimeFormat);
  Memo1.Lines.Add(´´);

  Txt := ´ShortMonthNames: ´;
  for Ind := 1 to 12 do begin
      Memo1.Lines.Add(Txt+ShortMonthNames[Ind]);
      Txt := StringOfChar(´ ´, Length(Txt));
  end;

  Memo1.Lines.Add(´´);
  Txt := ´LongMonthNames.: ´;
  for Ind := 1 to 12 do begin
      Memo1.Lines.Add(Txt+LongMonthNames[Ind]);
      Txt := StringOfChar(´ ´, Length(Txt));
  end;

  Memo1.Lines.Add(´´);
  Txt := ´ShortDayNames: ´;
  for Ind := 1 to 7 do begin
      Memo1.Lines.Add(Txt+ShortDayNames[Ind]);
      Txt := StringOfChar(´ ´, Length(Txt));
  end;

  Memo1.Lines.Add(´´);
  Txt := ´LongDayNames.: ´;
  for Ind := 1 to 7 do begin
      Memo1.Lines.Add(Txt+LongDayNames[Ind]);
      Txt := StringOfChar(´ ´, Length(Txt));
  end;

  Memo1.SetFocus;

end;