• Исходники
  • Исходники - CyberGuru.ru - все об IT и программировании

Проверка даты

Written on . Posted in [Delphi] Алгоритмы

function ValidDate(const S : String) : Boolean;
BEGIN
Result := True;
try
StrToDate(S);
except
ON EConvertError DO Result := False;
end;
END
delphi форум