задать условие MaskEdit1.Text

← →
Caridi © (2005-07-18 15:59) [0]

Какое условие на проверку MaskEdit1.Text надо задать, чтобы проверить правильность заполнения (в данном случае – дата)

if MaskEdit1.Text <> ?????? then …. else ….

← →
tesseract (2005-07-19 10:40) [1]

MaskEdit.EditMask:="!99/99/00;1;0";

try
MyDAte:=StrToDate(MAsKEdit.EditText)
except
on EconvertError do ShowMessage("Текст не дата!!!");
end;

← →
Caridi © (2005-07-20 13:45) [2]

Что тогда не так:
procedure TForm2.BitBtn1Click(Sender: TObject);

var
MyDAte: TDateTime;

begin

try
MyDAte:=StrToDate(MaskEdit1.EditText);
except
EconvertError do ShowMessage("Текст не дата!!!");
end;

{Table1.Edit;
Table1.FieldByName("DAY").AsString:=MaskEdit1.Text;
table1.Insert;
DBEdit1.SetFocus;}
end;

Delphi Указывает на do ???

← →
Kot Andrei © (2005-07-20 13:47) [3]

procedure TForm2.BitBtn1Click(Sender: TObject);
var
MyDAte: TDateTime;
begin
try
MyDAte:=StrToDate(MaskEdit1.EditText);
except
ShowMessage("Текст не дата!!!");
end;

Нашол. Не хватает on перед EconvertError

Но в обоих случаях не работает...

задать условие MaskEdit1.Text Найти похожие ветки