функция для сравнения строки с типом дата

[Konstantin_ua]

Никто не подскажет есть ли функция которая возвращает тру или фолс после того как сровняешь строку с типом дата. Ну что то типа StrToData, но только в случае ошибки возвращало фолс или при успехе тру.

[eval]

TryStrToDateTime это чтоли?

[Konstantin_ua]

Сообщение от eval

TryStrToDateTime это чтоли?

да спасибо, нужно было что типа этого

procedure TF_add.medt1Exit(Sender: TObject);
var dat:TDateTime;
begin
  DateSeparator:='.';
  if TryStrToDate(medt1.Text,dat) then ShowMessage('data')
  else ShowMessage('false');

  end;

[eval]

DateSeparator

это пережиток, его лучше не использовать, да и у вас нет восстановления его! если надо "хитрое", то лучше взять перегруженную function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean; overload;

[Konstantin_ua]

Сообщение от eval

это пережиток, его лучше не использовать, да и у вас нет восстановления его! если надо "хитрое", то лучше взять перегруженную function TryStrToDateTime(const S: string; out Value: TDateTime; const FormatSettings: TFormatSettings): Boolean; overload;

переделал так

  if (TryStrToDateTime(medt1.Text, dat) =False) then
  begin
    medt1.Clear;
    ShowMessage('Íå â³ðíî âêàçàíà äàòà');
  end;

ну вот вопрос, когда вводишь не дату а допустим 99.99.99 то норм, появляется сообщение и медит чистит. Когда пустой медит типа __.__.__ тоже норм а вот когда не полностью заносишь данные типа 12.1_.__ то ошибка. Как ее убрать?
55.jpg

[eval]

это ошивка не тут, показывайте как в базу отправляете

[Konstantin_ua]

Сообщение от eval

это ошивка не тут, показывайте как в базу отправляете

ну я в базу отправляю только по нажатию на кнопку, а ошибка вылетает когда просто в едитах меняю значение коряво, вот код запроса

 with F_main.qry1 do
    begin
      Active:=False;
      SQL.Clear;                                                                                                                                                                                           // , status5=:pstatus5
      SQL.Add('INSERT into Dok (dov_number, Dov_date, Date_oplatu, Kontragent, Summ_money, Rah_number, Rah_Date, Akt_number, Akt_date, Naklad_number, Naklad_date, Dog_buh, Dog_der, Akt_orig, Naklad_orig, Oplata)');
      SQL.Add('values (:par1,:par2,:par3,:par4,:par5,:par6,:par7,:par8,:par9,:par10,:par11,:par12,:par13,:par14,:par15, :par16)' );
      Parameters.ParamByName('par1').Value:= edt1.Text;
      if(medt1.Text='  .  .  ')then Parameters.ParamByName('par2').Value:=Null else
      Parameters.ParamByName('par2').Value:= FormatDateTime('ddddd',StrToDate(medt1.Text));
      if(medt2.Text='  .  .  ')then Parameters.ParamByName('par3').Value:=Null else
      Parameters.ParamByName('par3').Value:= medt2.Text;
      Parameters.ParamByName('par4').Value:= cbb1.Items[cbb1.ItemIndex];
      Parameters.ParamByName('par5').Value:= edt2.Text;
      Parameters.ParamByName('par6').Value:= edt4.Text;
      if(medt3.Text='  .  .  ')then Parameters.ParamByName('par7').Value:=Null else
      Parameters.ParamByName('par7').Value:= FormatDateTime('ddddd',StrToDate(medt3.Text));
      Parameters.ParamByName('par8').Value:= edt5.Text;
      if(medt4.Text='  .  .  ')then Parameters.ParamByName('par9').Value:=Null else
      Parameters.ParamByName('par9').Value:= FormatDateTime('ddddd',StrToDate(medt4.Text));
      Parameters.ParamByName('par10').Value:= edt6.Text;
      if(medt5.Text='  .  .  ')then Parameters.ParamByName('par11').Value:=Null else
      Parameters.ParamByName('par11').Value:=FormatDateTime('ddddd',StrToDate(medt5.Text));
      Parameters.ParamByName('par12').Value:= edt7.Text;
      Parameters.ParamByName('par13').Value:= edt8.Text;
      Parameters.ParamByName('par14').Value:= status1;
      Parameters.ParamByName('par15').Value:= status2;
      if(StrToInt(edt2.Text)>0) then Parameters.ParamByName('par16').Value:='îïëà÷åíî'  else Parameters.ParamByName('par16').Value:= 'íå îïëà÷åíî';

      ShowMessage('Äîáàâëåíî');
      ExecSQL;

      coppy(s1, cbb1.Items[cbb1.itemIndex],'Àêòè', ('¹'+edt5.Text+' '+medt4.Text));
      coppy(s2, cbb1.Items[cbb1.itemIndex],'Ðàõóíêè',('¹'+edt4.Text+' '+medt3.Text) );
      coppy(s3, cbb1.Items[cbb1.itemIndex],'Ïîäàòêîâ³ íàêëàäí³',('¹'+edt6.Text+' '+medt5.Text));
    end;

[Аватар]

Это ошибка DBEdit-a с маской. Без Try ... except не погасишь

[Konstantin_ua]

Сообщение от Аватар

Это ошибка DBEdit-a с маской. Без Try ... except не погасишь

можете подсказать что я не так сделал?

procedure TF_add.medt1Exit(Sender: TObject);
begin
try
  if (TryStrToDateTime(medt1.Text, dat) =False) then
  begin
    medt1.Clear;
    ShowMessage('Íå â³ðíî âêàçàíà äàòà');
  end;
  except
 on E : Exception do
  ShowMessage('Íå â³ðíî âêàçàíà äàòà'+ E.Message);
  end;
  end;