Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Вниз

задать условие 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;

---

← →
Caridi ©   (2005-07-20 13:48) [4]

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

---

← →
Caridi ©   (2005-07-20 14:06) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c