Проверка дат
| function ValidDate(const S : String) : Boolean; BEGIN Result := True; try StrToDate(S); except ON EConvertError DO Result := False; end; END |
[000556]
Советы по Delphi
| function ValidDate(const S : String) : Boolean; BEGIN Result := True; try StrToDate(S); except ON EConvertError DO Result := False; end; END |
[000556]