При отображении TDateTimeField в DBGrid с форматированием hh:mm
(для показа только времени), любая попытка изменения времени приводит (при
передаче данных) к ошибке примерно такого содержания: "'07:00 is not a valid
DateTime" (07:00 - неверный DateTime). Я хотел бы посылать данные приблизительно
в таком виде "trunc(oldDateTimevalue)+strtoTime(displaytext)"
Следующий обработчик события TDateTimeField OnSetText не слишком элегантен,
но он работает!
| |
|
procedure TForm1.Table1Date1SetText(Sender: TField;
const Text: String);
var
d: TDateTime;
t: string;
begin
t := Text;
with Sender as TDateTimeField do begin
if IsNull then d := SysUtils.Date
else d := AsDateTime;
AsDateTime := StrToDateTime(Copy(DateToStr(d),1,8)+'
'+t);
end;
end; |
Здесь мы исходим из предположения, что у вас имеется маска редактирования,
допускающая формат hh:mm или hh:mm:ss.
- Mike Orriss | 
