StrToDate()没有参数化的TFormatSettings会抛出AV吗？

Question

只是为了好奇:为什么这段代码给出AV而不是抛出异常？

procedure TForm1.Button1Click(Sender: TObject);
var fs: TFormatSettings;
begin
  strtodate('2011-01-01', fs);
end;

Answer 1

您的代码引发异常,因为fs未初始化.

  uses SysUtis, Windows;

  procedure TForm1.Button1Click(Sender: TObject);
  var fs: TFormatSettings;
  begin
    GetLocaleFormatSettings(GetSystemDefaultLCID, fs); // what is your short-date format?
    strtodate('2011-01-01', fs);
  end;