Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Синтаксис
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 30.07.2014, 10:54
hilaryon hilaryon вне форума
Прохожий
 
Регистрация: 19.11.2010
Сообщения: 18
Репутация: 10
По умолчанию Преобразования, полный ступор программы

Народ, очень волнует такой вопрос, помогите кто сталкивался, есть программа, в ней туева куча преобразований типа strtofloat strtoint

если каким то макаром попадает не корректная строка для преобразования, программа выдает ошибку и полностью ступорится, вплоть до диспетчера задач. Это ппц, вот пример

Код:
try
    sGauge1.MaxValue:=abs(round(strtofloat(sEdit3.Text)));
  except
    on EConvertError do
    begin
    sGauge1.MaxValue:=1200;
    end;

или

Код:
  for I := 1 to sg.RowCount-1 do
    begin
      if sg.Cells[0,i]='' then Continue;
      try
        sumgr:=sumgr+strtofloat(sg.Cells[2,i]);
        sumday:=sumday+strtofloat(sg.Cells[6,i]);
        if (sg.Cells[9,i]<>'')and(sg.Cells[9,i]<>' ') then
        gn:=gn+strtofloat(sg.Cells[9,i]);

        if sg.Cells[8,i]<>'' then
        sumxe:=sumxe+strtofloat(sg.Cells[8,i]);

        belki1:=belki1+strtofloat(sg.Cells[3,i]);
        jirki1:=jirki1+strtofloat(sg.Cells[4,i]);
        uglevodi1:=uglevodi1+strtofloat(sg.Cells[5,i]);
        except
        on Exception : EConvertError do
        ShowMessage(Exception.Message);
      end;
    end;

Посоветуйте как быть, желательно чтобы не оборачивать каждое преобразование в эксепты, чтобы можно было что-то прописать в приложении чтобы оно не уходило в даун при ошибках а просто шло дальше

Интересуюсь для своей программы http://hiki-soft.ru/ калькулятор калорий можно скачать поглядеть на нее

Последний раз редактировалось hilaryon, 30.07.2014 в 12:18.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:58.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter