changing dd-mm-jjjj in dd/mm/jjjj

[blablabla2]

hello,

On my laptop,the date is dd/mm/jjjj. But on my home computer, it is dd-mm-jjjj.

to make my program work on the home computer, I need to force it to write the date as dd/mm/jjjj. How can I do that?

tnx

jeronimo

 

[Zathras]

Use the FormatDateTime( ) function.

 

[Nordlund]

To make the whole application act with another date format, use

ShortDateFormat := 'yyyy-mm-dd'; // Swedish

in the FormCreate statement...
But be avare... If the system does refresh the date format, or you change the regional settings, the above change will be reset...

If you want to be noticed if this happens. You should create a procedure like this (Maybe not 100% errorfree):

procedure TForm1.SettingsChange(Sender: TObject; Flag: Integer;
  const Section: string; var Result: Integer);
begin
  if UpperCase(Section) = 'INTL' then
  begin
     if ShortDateFormat <> 'yyyy-mm-dd' then
       ShortDateFormat := 'yyyy-mm-dd';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnSettingChange := SettingsChange;  
end;

... Or even easier way to wath it....

Use the TApplicationEvents object.
Use the event OnSettingsChange, Sectrion 'intl'


//Nordlund