- Код: Выделить всё
 ShowMessage('бу');
 ShowMessage('12:00:00');
 ShowMessage(TimeToStr(StrToTime('12:00:00')));
увидим
'12:00:00'
'00:00:00'
я так понимаю что виноват код
- Код: Выделить всё
- if PM then
 begin
 if (TimeValues[0] <> 12) then
 Inc(TimeValues[0], 12);
 end
 else
 begin
 if (TimeValues[0]=12) then
 TimeValues[0]:=0;
 ^^^^^^^^^^^^^^
 end;
в dati.inc
на что исправить еще не смотрел.
пойду писать багтрекер.
баг номер 9772





