Delphi - Ako ošetriť SpinEdit.Value, ak je výsledkom výnimka?

Neregistrovaný Přihlásit Registrovat

Mám takú zaujímavú otázku:

M8m na formulári SpinEdit a pri jeho zmene (OnChange) sa vykoná obslužná metóda, ktorá aktualizuje formulár tým, že prekreslí obráok podľa aktuálnych údajov na formulári. Takže metóda OnChange je vyvolaná pri akejkoľvek zmene hociktorej komponenty na formulári. Pri Edit riešim prípadný problém pri zadaní čísla použitím StrToIntDef. Problém však nastáva, ak chcem čítať SpinEdit.Value. Ako odstrániť problém tak, aby som nemusel použiť try...finally?

Aby som sa vyjadril presnejšie. Ide o to, že keď idem zmeniť SpinEdit pomocou klávesnice, tak ho inštinktívne najprv vymažem a tým vznikne pre Integer nedefinovaný obsah.

Nie je nejaká metóda na overenie definovateľnej hodnoty Value?

Předmět	Autor	Datum
Nepomôže Ti toto ? procedure TForm1.SpinEdit1Change(Sender: TObject); begin if spinedit1.Text = ''… pme 22.11.2006 19:36	pme	22.11.2006 19:36
Presne to som chcel. Myslel som, že Text je neprístupný. Skúsim. Edit: Vyriešené. poslední msx. 22.11.2006 20:07	msx.	22.11.2006 20:07

Nepomôže Ti toto ?

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 if spinedit1.Text = '' then exit;
 ...  
end;

Presne to som chcel. Myslel som, že Text je neprístupný. Skúsim.

Edit: Vyriešené.

Zpět do poradny Odpovědět na původní otázku Nahoru