Главная страница
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.48 MB
Время: 0.016 c
14-30039
mmmh
2003-02-24 20:25
2003.03.10
Может кто знает как это чуваки смогли запоковать только куски про


14-30038
Igor_thief
2003-02-24 19:37
2003.03.10
Папки и файлы


3-29732
Max79
2003-02-19 11:20
2003.03.10
Хотелось бы реализовать сортировку по возрастанию и убыванию


14-30020
Fire Man
2003-02-24 09:46
2003.03.10
Клавиатура


4-30196
mate
2003-01-20 09:00
2003.03.10
Create.Application