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

Вниз

Вопрос по StringGrid   Найти похожие ветки 

 
DECL   (2003-02-28 00:04) [0]

Здравстуйте! Извините за дурацкий вопрос, но никак не могу понять как проверить содержимое ячейки StringGrid на принадлежность типу даты, т.е. дд.мм.гг или дд.мм.гггг.
Заранее спасибо!!
Используються: Delphi 6.0, Access 2000


 
Юрий Зотов ©   (2003-02-28 00:18) [1]

function IsDate(S: string): boolean;
begin
try
StrToDate(S);
Result := True
except
Result := False
end
end;
...
if IsDate(StringGrid1.Cells[i, j]) then ...


 
DECL   (2003-02-28 00:24) [2]

Пасиба! :)


 
DECL   (2003-02-28 00:47) [3]

Хм... А при проверке StrToDate(S) он ругается и не хочет работать, говорит типа "введёное значение" is not a valid date.
Как быть???


 
Юрий Зотов ©   (2003-02-28 00:57) [4]

Никак. Это только при запуске из-под Delphi. При запуске без отладчика все будет ОК. Если уж очень хочется, отключите реакцию отладчика на EConvertError, но лучше не стоит.


 
Makhanev A.S. ©   (2003-02-28 00:57) [5]

Если включена опция "Stop on Delphi Exceptions", то IDE будет выдавать сообщение об ошибке (в случае, если s - не дата), затем после дальнейшей обработки исключения (F9) всё должно быть ОК.

В этом случае (при включённом S.O.D.E.) "Он" должен ругаться и он должен работать.
Если "он" ругается, это ещё не значит, что он не должен работать.

Если s - дата, то всё должно быть ОК без всяких исключений.


 
DECL   (2003-02-28 01:21) [6]

Всё понятно, всем большое спасибо!


 
DECL   (2003-02-28 01:52) [7]

Извиняюсь за конечно беспокойство, но у меня появился ещё один вопрос: как сделать так, чтобы вместо даты не вводилось время, т.е. при вводе в строку например 12 вместо положенных 12.02.02 формат принимается и пишется 31.12.99 12:00???



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

Текущий архив: 2003.03.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
3-29705
Ihtiandr
2003-02-18 17:28
2003.03.10
Generator


3-29711
lark
2003-02-18 06:00
2003.03.10
MS SQL Server 2000+ADO+Delphi6


7-30138
Seldon
2003-01-10 22:15
2003.03.10
Реестр


4-30187
romychk
2003-01-21 13:36
2003.03.10
Работа с чужими окнами


14-30019
RV
2003-02-20 14:56
2003.03.10
на некоторых нотебуках не инициализируется OpenGL