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