Текущий архив: 2003.10.27;
Скачать: CL | DM;

Вниз

Try...Except   Найти похожие ветки 

← →
DimChan ©   (2003-10-14 13:40) [0]

Приветствую Вас, Мастера, уже около 3ч. бьюсь над одним и тем же, взгляните пожалуйста на код, не получается обработать ошибку, буду благодарен за помощь

y:= strToCurr(num);
try
Num := FormatCurr("0.00",y)
Except
on EConvertError do MProba.text := "Error"
end;
Summa1.Text := Num;
Summa1.SelStart := start;


---

← →
MBo ©   (2003-10-14 13:45) [1]

хм... откуда ошибка возьмется внутри try-блока?

---

← →
Skier ©   (2003-10-14 13:45) [2]

try
y:= strToCurr(num);
Num := FormatCurr("0.00",y)
Except
on EConvertError do MProba.text := "Error"
end;

---

← →
DimChan ©   (2003-10-14 13:58) [3]

> MBo © (14.10.03 13:45) [1]
> хм... откуда ошибка возьмется внутри try-блока?


При Length(num) > 18

---

← →
DimChan ©   (2003-10-14 13:59) [4]

> Skier ©

Огромное спасибо!!! 8-))

---

← →
KSergey ©   (2003-10-14 14:09) [5]

> [3] DimChan © (14.10.03 13:58)
> При Length(num) > 18

Вы невнимательно прочитали пост уважаемого MBo, пропустив важное слово "внутри".

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.019 c