[HeDiBo]

The following code will solve the problem:

      s := Text;
{$ENDIF}
      if s = '' then begin      (*** DB ***)
         Value := 0;            (*** DB ***)
         s := Text;             (*** DB ***)
      end{if};                  (*** DB ***)
      case FPos of

The spin buttons still don’t do anything, but that’s probably OK.

[sergunalpha]

Thank you, I will check it.

[HeDiBo]

After reconsideration, to support TNTUNICODE, the best fix may be:

    if Result then begin
      if Text = '' then Value := 0;   (*** DB ***: initialize text to 00:00:00 *)
{$IFDEF TNTUNICODE}
      c := PWideChar(Text);

• This reply was modified 6 years, 5 months ago by HeDiBo.

[Support]

Thank you, I will add it in the nearest release.

[HeDiBo]

Problem fixed. Close this topic, please.

[Author]

Posts