delphi - 没有参数化 TFormatSettings 的 StrToDate() 是否应该抛出 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;