Форум: "Основная";
Текущий архив: 2003.10.27;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c