Проверка дат
function ValidDate(const S : String) : Boolean;BEGINResult := True;tryStrToDate(S);exceptON EConvertError DO Result := False;end;END |
[000556]
function ValidDate(const S : String) : Boolean;BEGINResult := True;tryStrToDate(S);exceptON EConvertError DO Result := False;end;END |
[000556]