[Delphi] TMaskEdit - a nic

0

Jak w komponencie TMaskEdit (gdy jest ustwiona jakaś maska) sprwadzić czy nic do niego nie wpisano.
Próbowałem sprawdzić czy Length(MaskEdit1)=0 ale to nic nie daje.
pozdr. ;)

0

jeżeli maskedit1.text=maskedit1.mask to znaczy że niewpisano

0
adrianek napisał(a)

jeżeli maskedit1.text=maskedit1.mask to znaczy że niewpisano

no nie bardzo bo popierwsze MaskEdit nie ma właściwości Mask :> a po drugie (to do pytacza) myśleć! Jak nie wiesz to postaw BreakPointa na linijce z ifem i sprawdz jaki tam jest text jak nic nie wpiszesz do MaskEdita

0

Nie do końca wszystko opisałem tak jak należy. Zacznę od początku.
Do komponentu DBEdit1 podpięte mam jedno z pól bazy konkretnie NIP (format 123-456-78-90). W Object Inspektorze dla tego pola NIP mam ustawioną właściwość EditMask=999?999?99?99;1;_. No i właśnie mam problem bo:

  1. Chciałbym aby komórka DBEdit1 mogła być wypełniona lub też nie (dlatego też są dziewiatki a nie zera, bo wtedy zmusza do wpisania).
  2. Jeżeli komórka DBEdit1 uzyska fokus a nic nie zostanie wpisane i przejdzie się do nastepnej komórki wywala błąd is not a valid integer value. Wówczas w komórce wpisane jest " - - - ". Konstrukcja try ... except nie wykrywa tego wyjątku.
  3. Chciałbym też aby przy masce 999?999?99?99;1;_ gdy wpisze się tylko coś w środku pojawił się komunikat że nie wpisany wszystkich cyfr.

Byłbym wdzięczny za wszelkie sugestie!

Dzięki ;)

0

Coś doradzicie?!

Proszę ;P

1 użytkowników online, w tym zalogowanych: 0, gości: 1