Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Jak wykryć EConvertError przy strtoint przed przerwaniem działania exeka?
0 views
Skip to first unread message
ReFLeX
Mar 14, 2001, 1:54:41 PM3/14/01
to
Witam!
Mam Edit1:TEdit do którego należy wpisać cyfrę.Próbowałem:
try
strtoint(Edit1.text)
except
on E: EConvertError do {no właśnie co? Edit1.text:='10' nie
rozwiązuje problemu, gdyż i tak błąd przerwie działanie programu}
Else
//ok, więc tu np. a:=strtoint(Edit1.text);
end;
Mam Edit1:TEdit do którego należy wpisać cyfrę.Próbowałem:
try
strtoint(Edit1.text)
except
on E: EConvertError do {no właśnie co? Edit1.text:='10' nie
rozwiązuje problemu, gdyż i tak błąd przerwie działanie programu}
Else
//ok, więc tu np. a:=strtoint(Edit1.text);
end;
Jak to zrobić? Mógłbym ewentualnie użyć strtointDef, ale chciałbym
mieć możliwość poprawienia Edit1.text na wartość default z tej
funkcji, a nie mogę tu wykryć kiedy wystąpi błąd konwersji.
A przy okazji jak wyłączyś obsługę błędów w Delphi(5)?
Pozdrawiam
ReFLeX/Dangerous Minds ReF...@obywarel.pl
http://Frispouker.Republika.PL - serwis internetowych przyjaciół
Sławomir Adamski
Mar 14, 2001, 2:20:45 PM3/14/01
to
Witam
Użytkownik "ReFLeX" <ReF...@obywatel.pl> napisał w wiadomości
news:uulsatsl7i5h5erc1...@4ax.com...
> Mam Edit1:TEdit do którego należy wpisać cyfrę.Próbowałem:
> try
> strtoint(Edit1.text)
> except
> on E: EConvertError do {no właśnie co? Edit1.text:='10' nie
> rozwiązuje problemu, gdyż i tak błąd przerwie działanie programu}
Użytkownik "ReFLeX" <ReF...@obywatel.pl> napisał w wiadomości
news:uulsatsl7i5h5erc1...@4ax.com...
> Mam Edit1:TEdit do którego należy wpisać cyfrę.Próbowałem:
> try
> strtoint(Edit1.text)
> except
> on E: EConvertError do {no właśnie co? Edit1.text:='10' nie
> rozwiązuje problemu, gdyż i tak błąd przerwie działanie programu}
Jest Pan pewien, że przerwie? Uruchamiał Pan ten program _bez_ Delphi?
--
Sławek
0 new messages