Как обработать следующую ситуацию?

[Tanuska___:)]

При сохранении новой записи в таблицу Аксесс я столкнулась с проблемой следующего плана:
у меня поле в таблице имеет тип :Дата/время
вводяться данные через компонент MaskEdit.
Заношу данные :
ADOTable2.FieldByName('DataIspolnen ').Value:=MaskEdit5.Text;
но если пользователь не ввел ничего в поле MaskEdit5 , то возникает ошибка конвертации String в Date.
Если вам не сложно, пришлите ответ, как можно обойти эту ситуацию,
или если точнее как можно сделать следующее
при условии того что в поле не ввели информацию , то и в таблицу в донное поле ничего не заноситься...

[MAcK]

if Trim(Maskedit.text) = '' then
ничего не ввели
esle
что-то ввели

[Andrei]

Можно воспользоваться для конвертации даты функцией TryStrToDateTime из модуля SysUtils она конвертирует строку с датой/временем в TDateTime. В случае неудачи возвращает False. И по результатам конвертации решать заносить или не заносить значение в поле.

PS: Это к тому же позволит отловить случаи когда пользователь ввел в строку значения не соответствующие реальным значениям дата/время.

[Tanuska___:)]

а можно пример какой нибудь с применением функции TryStrToDateTime . Пожалусто...

[MAcK]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
d: TDateTime;
begin

if TryStrToDateTime(Edit1.Text, d) then \\ в d находится дата с едита
есть корректная дата
else
что-то другое, но не дата

end;

end.

[Tanuska___:)]

Спасибо огромное ))))