Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Обработка исключений - спрятать сообщение

Автор: Rizhaya 9.11.2007, 18:09

Проблема:

При применении TLineSeries в TChart через раз возникает ошибка "List index out of bounds". перелопатив кучу всякой инфы по этому поводу пришла к выводу, что мне надо просто напросто скрыть от пользователя возникновение этой ошибки...

Вопрос:

Как можно скрыть от пользователя возникновение ошибки? То есть чтобы при возникновении такого исключения программа продолжала работать?

И еще:

Заметила, что при добавлении Series1.Delete(0) таких ошибок не возникает... Но мне нужно очищать серию время от времени, чтобы прорисовывать новый график... И как раз на Series1.Clear возникает ошибка... Как ни крутила - но решить эту задачку не удалось... Может кто подскажет метод решения без обработки исключений?

ЗЫ. Код.

Код


procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var rect:TRect;
  x1,x2:real;
  k,j:real;
  begin
  if Series2.Count<>0 then
  begin
    Series2.Clear;
  end;
  rect:=Chart1.ClientRect;
  x1:=(X-rect.Left)*(Chart1.BottomAxis.Maximum-Chart1.BottomAxis.Minimum)/(rect.Right-rect.Left)+
     Chart1.BottomAxis.Minimum;
  x2:=(-Y+rect.Bottom)*(Chart1.LeftAxis.Maximum-Chart1.LeftAxis.Minimum)/(rect.Bottom-rect.Top)+
     Chart1.LeftAxis.Minimum;
  lblX1.Caption:='X1: '+FloatToStrF(x1,ffNumber,4,1);
  lblX2.Caption:='X2: '+FloatToStrF(x2,ffNumber,4,1);
   if (X2>0)and(x1>0) then
    begin       
      Series2.AddXY(x1,x2);
      k:=X1+sqr(x2)/2;
      j:=1;
      while x2>=Chart1.LeftAxis.Minimum do
      begin
       X2:=x2-j;
       X1:=-sqr(x2)/2+k;
       Series2.AddXY(x1,x2);
      end;
    end;
end;

Автор: THandle 9.11.2007, 20:38

Обработка исключительных ситуаций делается с помощью блоков

Код


try
// Код
except
// то что происходит после появления ошибки
end;

Код


try
// Код
finally
// Произойдёт независимо от того была ошибка или нет
end;

Но, ИМХО, не хорошо прятать от пользователя ошибки.

Автор: Rizhaya 9.11.2007, 21:50

Цитата(THandle @ 9.11.2007, 20:38)

Обработка исключительных ситуаций делается с помощью блоков
...
Но, ИМХО, не хорошо прятать от пользователя ошибки.

То что ты описал, я итак знаю ;) Меня интересует как раз, что же такое вписать в блок except =)

Прятать не хорошо, сама знаю, но это уже от очаяния... Ибо что-либо придумать для КОРЕКТНОГО очищения серии не получается... Все равно происходит переполнение... Может кто-то толком обьяснить как происходить все процедура заполнения-очищения серий? Или дайте, где почитать... Потому что везде, где я смотрела, только сухой код, не вдаваясь в подробности...

Последняя модификация кода (переполнение происходит когда значение Count переваливает примерно за 200)

Код


procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var rect:TRect;
  x1,x2:real;
  k,j:real;
  i,tmp:integer;
  begin
  i:=0;
  count:=Count+Series2.LastValueIndex;
  if Series2.Count<>0 then
  begin
      Series2.Clear;
      Series2.AddNull();
      Series2.Delete(0);
  end;
  rect:=Chart1.ClientRect;
  x1:=(X-rect.Left)*(Chart1.BottomAxis.Maximum-Chart1.BottomAxis.Minimum)/(rect.Right-rect.Left)+
     Chart1.BottomAxis.Minimum;
  x2:=(-Y+rect.Bottom)*(Chart1.LeftAxis.Maximum-Chart1.LeftAxis.Minimum)/(rect.Bottom-rect.Top)+
     Chart1.LeftAxis.Minimum;
  lblX1.Caption:='X1: '+FloatToStrF(x1,ffNumber,4,1);
  lblX2.Caption:='X2: '+FloatToStrF(x2,ffNumber,4,1);
   if (X2>0)and(x1>0) then
    begin
      Series2.AddXY(x1,x2);
      k:=X1+sqr(x2)/2;
      j:=1;
      while x2>=Chart1.LeftAxis.Minimum do
      begin
       X2:=x2-j;
       X1:=-sqr(x2)/2+k;
       Series2.AddXY(x1,x2);
       i:=i+1;
      end;
      tmp:=count;
      count:=i;
      count:=tmp;
    end;
end;

Добавлено:

Если не использовать метод Clear, то исключение не возникает, но мне НЕОБХОДИМО очищать серию, ибо должен строится новый график, с новыми данными, вместо предыдущего...

Автор: Rizhaya 10.11.2007, 14:10

Проблема решена, казалось бы, очевидным способом (даже не знаю, почему мне сразу в голову не пришло это решение). Спасибо всем за участие ;)

ЗЫ. Может кому понадобится, то вот само решение (кусочек, где я "очищаю" серию, уничтожая и создавая заново обьект).

Код


    Series2.Destroy;
    Series2:=TLineSeries.Create(Form1);
    Series2.SeriesColor:=clRed;
    Series2.XValues.Order:=loNone;
    Series2.YValues.Order:=loNone;
    Chart1.AddSeries(Series2);