Category: Miscellaneous
Title: Change the date format
Date added: 15.03.2006
Hits: 2886


procedure TForm1.Button1Click(Sender: TObject);
begin
  DateSeparator   := '.';
  ShortDateFormat := 'dd.mm.yy';
  LongDateFormat  := 'dddd, dd.mmmm.yyyy';
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  {shows the short and long month name of month number 11}
  ShowMessage(ShortMonthNames[11] + ' - ' + LongMonthNames[11]);
  {shows the short and long day name of day number 6}
  ShowMessage(ShortDayNames[5] + ' - ' + LongDayNames[5]);
end;

1. How to check if a disk is in the drive? (1671 Hits)

2. How to detect a keypress during a loop? (4593 Hits)

3. How to implement the Pascal Delay-function? (2947 Hits)

4. How to check if Delphi is running? (2045 Hits)

5. How to swap the mouse buttons? (1431 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.