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;