パラメータ化されていない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;