Проблема с проверкой даты

← →
Fr1K © (2008-04-21 17:01) [0]

Проблема с датой
Вообщем мне нужно в таблице вводить дату но так как у меня есть там записи которые сортируютса по дате, мне нужно если юзверь ввёл дату ниже последней записи в таблице то чтоб у него выскакивало сообщение
продолжить или оставить делаю так но всё равно при каждом нажатии на ентер он у меня показывает диалоговое окно хотя дата больше чем последняя: вот код
событие ЕForm3.Table1AfterPost

var buttonSelected : Integer;
begin
buttonSelected := MessageDlg("Äàòà íèæå òåêóùåé, Ïðîäîëæàòü?",mtInformation, mbOKCancel, 0);
if table1.Fields.Fields[1].Value < DateToStr(Date) then
case buttonSelected of
mrOK: Next;
mrCancel:Table1.Delete;

в дб гриде стоит событие
DBGridEh1KeyDown

в котором
if key = VK_Return then
Table1.AfterPost(Table1);

← →
Сергей М. © (2008-04-21 17:09) [1]

> всё равно при каждом нажатии на ентер он у меня показывает
> диалоговое окно

Что ты понаписал, то юзер и видит)

> хотя дата больше чем последняя

Ты глаза-то разуй - у тебя оператор сравнения дат выполняется после работы с твоим модальным диалогом !

p.s.
Как там чайханщик поживает ?
Еще терпит тебя ?)

← →
Зоо (2008-04-21 17:14) [2]

Удалено модератором
Примечание: Правила читаем

← →
Fr1K © (2008-04-21 17:15) [3]

Блин! ник не сохранился

← →
Сергей М. © (2008-04-21 17:15) [4]

Опять зоопарк)

← →
Fr1K © (2008-04-21 17:18) [5]

Да ищё возможно ли в ehLib в компоненте PrintDBGridEh распечатать сразу 3 таблицы на одном лесте из такогого что он позволяет работать только с одной

← →
Сергей М. © (2008-04-21 17:19) [6]

> ник не сохранился

А давеча, помнится, ты нам тут гнул горбатого, что это якобы не ты, это якобы разные люди из твоей ЛВС постят сюда)

Да на работе сидят я не отрицаю за моим компьютером.

Ему, надо понимать, тоже грозит экзекуция)

> Fr1K (21.04.2008 17:18:05) [5]

Два вопроса - две темф

Проблема с проверкой даты Найти похожие ветки