IsDate 日付チェック
Delphi 標準関数には残念ながらありません。
ただし簡単に作れるのでその一例をあげます。
| ■ IsDate関数の例 |
function IsDate(S : string): boolean;
var
d : TDateTime;
begin
Result := True;
try
d := StrToDate(S);
except
on E : EConvertError do begin
Result := False;
end else
raise;
end;
end;
|
これだと日付の変換に失敗した場合に Delphi IDE でエラーダイアログが表示されてしまいます。それを抑制するには [ ツール | デバッガオプション ] - "言語固有の例外" の "Delphi の例外で停止" のチェックを外します。
| ■ IsNumeric関数の使用例 |
procedure TForm1.Button1Click(Sender: TObject);
begin
if not IsDate('1999/12/12') then begin
ShowMessage('変換エラー');
end;
end;
|