Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.07;
Скачать: CL | DM;

Вниз

задать условие 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
3-1120072928
AKiM
2005-06-29 23:22
2005.08.07
Связь с MySQL из Delphi


1-1121752220
pvm
2005-07-19 09:50
2005.08.07
столбцы в гриде


14-1121668373
Antonn
2005-07-18 10:32
2005.08.07
Помогите найти решение задачки


1-1121728449
jcrush
2005-07-19 03:14
2005.08.07
Найти в списке memo буквы КД и по горячим клавишам заменить


8-1112786904
murk2
2005-04-06 15:28
2005.08.07
Как сделать коррекцию гаммы в TBitmap?