Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу Ошибка с QRChart
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Chel Chel вне форума
Новичок
 
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.05.2008
По умолчанию 14.06.2008, 13:49

Одним словом на 1 форме строю график по данным (в Chart)
Вот код:
Код:
procedure TForm10.Button1Click(Sender: TObject);
var i,j: integer;
begin
  label1.Caption:=inttostr(form8.ADOQuery5.RecordCount);  
  stringgrid1.RowCount:=form8.ADOQuery5.RecordCount;
  j:=1;
     with form8.DBGrid7.DataSource.DataSet do begin
       First;
         while not eof do begin
            for i:=0 to form8.DBgrid7.Columns.Count do
               StringGrid1.Cells[i,j]:=Fields[i].AsString;
                 Next;
                   Inc(j);
            end;
      end;
label4.Visible:=true;
label4.Caption:='----  данные по '+form8.DBEdit5.Text+' пилоту: '+ ' и этапам страны: '+form8.DBEdit1.Text;
  for j:=1 to stringgrid1.rowCount do begin
     series1.AddXY(j,strtofloat(stringgrid1.Cells[3,j]),form8.DBGrid5.Fields[0].Name,clred);
  end;
label1.Caption:=inttostr(stringgrid1.ColCount);
 end;
График нормально строится и никаких ошибок!
потом нажимаю кнопку Отчет и перекидываю данные в отчет QuickRep1 в QRChart1

вот код:
Код:
procedure TForm10.Button5Click(Sender: TObject);
var i,j: integer;
begin
   if label4.Visible=true then 
     label1.Caption:=inttostr(form8.ADOQuery5.RecordCount);
     stringgrid1.RowCount:=form8.ADOQuery5.RecordCount;
     j:=1;
        with form8.DBGrid7.DataSource.DataSet do begin
        First;
            while not eof do begin
                for i:=0 to form8.DBgrid7.Columns.Count do
                 StringGrid1.Cells[i,j]:=Fields[i].AsString;
                   Next;
                   Inc(j);
             end;
        end;
   form12.Qrlabel2.Show;
   form12.Qrlabel2.Caption:='----  данные по '+form8.DBEdit5.Text+' пилоту: '+ ' и этапам страны: '+form8.DBEdit1.Text; 
   form12.series1.Clear;
  for j:=1 to stringgrid1.rowCount do begin
   form12.series1.AddXY(j,strtofloat(stringgrid1.Cells[3,j]),form8.DBGrid5.Fields[0].Name,clred);
  end;
     form12.QuickRep1.Preview;
end;
далее, закрываю окно отчета и на форме очищаю графики
Код:
procedure TForm10.Button2Click(Sender: TObject);
 begin
form12.Series1.Clear;
series1.Clear;   label4.Visible:=false;
end;
и после этого бьет ошибку
http://pikucha.ru/7757/ошибка%20при%...20графиков.JPG

подскажите, пожалуйста как можно исправить! может я не так в отчет заношу графики :/
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не запускается STALKER Зов Припяти, ошибка: ошибка d3dx9_41.dll. даниэль Любые вопросы от новичков 23 22.05.2012 07:53
Ошибка при прожиге дисков - "ошибка драйвера DMA. ошибка CRC". burn Техническая поддержка 6 24.01.2012 19:51
При попытке зайти на сайт выдается ошибка - "ошибка подключения" shem-76 Любые вопросы от новичков 20 31.03.2010 23:48
При загрузке компьютера выдается ошибка: "ошибка при загрузке rjuq.mpo. Не найден Lisunov Любые вопросы от новичков 2 29.03.2010 16:44
Ошибка при запуске "S.T.A.L.K.E.R.": Ошибка при инициализации приложения(0xc000001d) 45дима Любые вопросы от новичков 1 15.01.2010 19:06
Где ошибка? z556 Prolog 21 21.04.2009 11:24
Ошибка: Generic Host Process For Win 32 Services-обнаружена ошибка СЕлНик Техническая поддержка 4 13.03.2009 17:07
При подключении к интернету выдается ошибка: svchost.exe Ошибка приложения. evgenich512 Любые вопросы от новичков 3 13.12.2008 23:26
NOD32 после проверки выдает "ошибка распаковки", что это за ошибка и как устранить? *АЛХИМИК* Любые вопросы от новичков 7 02.12.2008 01:07
При директиве PUT - ошибка 75 ошибка обращения к файлу/пути cowboy Visual Basic 4 17.11.2005 18:51
Как узнать что ошибка программы или же ошибка в программном коде Vasis Delphi 0 01.07.2004 16:09



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов