请教DateTimePicker.date 的格式与机器的日期格式问题！

Question

保存时是insert into renyuan (id,name,birthday) values('+chr(39)+trim(edit4.text)+chr(39)+'+'+chr(39)+trim(edit5.text)+chr(39)+'+'+chr(39)+FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date)+chr(39)+')读出来时是 DateTimePicker1.Date:=strtoDate(treeADOQuery.FieldByName('birthday').AsString)在一台机器上运行（日期格式：yyyy-mm-dd），没问题。
如果在其他机器上运行，而且日期格式:yyyy/mm/dd,读出来时报错“无效的日期”如何使用DateTimePicker1.Date，不受机器日期格式限制。
或者如何使用DateTimePicker1.Date，读到某台机器的日期格式？谢谢！

Answer 1

在程序初始化里面写上 ShortDateFormat='YYYY-MM-DD'; 这样你的程序就不依赖操作系统的日期格式了。
eg
procedure TFormCustom.FormCreate(Sender: TObject);
begin
  ShortDateFormat := 'YYYY-MM-DD';
  DateSeparator := '-';
end;

Answer 2

ShortDateFormat，这是delphi的系统变量，可以自己设置的，就不受操作系统的限制了。