| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

задать условие MaskEdit1.Text [D7, WinXP]

Caridi ©   (2005-07-18 15:59:00) 

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

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

---

Caridi   (2005-07-20 14:06:00) [1]

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

---

Caridi   (2005-07-20 13:48:00) [2]

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

---

Kot Andrei   (2005-07-20 13:47:00) [3]

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

---

Caridi   (2005-07-20 13:45:00) [4]

Что тогда не так:
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 ???

---

tesseract   (2005-07-19 10:40:00) [5]

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

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

---

Наверх