Частичный показ DateTime
Falk0ner, вс, 06/07/2008 - 15:34.
Частичный показ DateTime При отображении 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.
http://delphiworld.narod.ru/
DelphiWorld 6.0
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;
Отправить комментарий