Показать сообщение отдельно
  (#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