Советы по Delphi

Проверка дат


    function ValidDate(const S : String) : Boolean; BEGIN Result := True; try StrToDate(S); except ON EConvertError DO Result := False; end; END

[000556]



Содержание раздела