Проверить, является строка датой или временемDelphi , Синтаксис , Типы и ПеременныеПроверить, является строка датой или временем
Оформил: DeeCo { Das akzeptierte Format von StrToDate und StrToTime wird in den globalen Variablen DateSeparator und ShortDateFormat definiert. The accepted format of StrToDate and StrToTime is defined in the global variables DateSeparator and ShortDateFormat } function IsDate(str: string): Boolean; var dt: TDateTime; begin Result := True; try dt := StrToDate(str); except Result := False; end; end; function IsTime(str: string): Boolean; var dt: TDateTime; begin Result := True; try dt := StrToTime(str); except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if IsDate('24.07.2001') then begin ShowMessage('Yes, it is a date.'); end; if IsTime('16:23') then begin ShowMessage('Yes, it is a time.'); end; end; Данная статья описывает функции для проверки строки на соответствие формату даты или времени в Delphi. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Типы и Переменные ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |