Версия для печати темы

Автор: Mr.Dmitry 8.11.2006 2:34

Подскажите пожалуйсто как пользоваться графиком Chart.
И возможно ли связать StringGrid с этим графиком.
Если можно то напишите хотябы примерно как это зделать!

Автор: Reptile 8.11.2006 14:25

function AddXY(Const AXValue, AYValue: Double; Const AXLabel: String; AColor: TColor) : Longint;

  for i := 0 to 10 do
  begin
    Chart1.Series[0].AddXY(i,i*2,'Text',clRed);
  end;

Автор: Mr.Dmitry 8.11.2006 19:59

Вот как я пытался написать

Автор: Reptile 8.11.2006 22:59

Ты не правильно настроил Chart, а точнее выбрал не подходящий график.
Добавь серию Line, убери 3D.
Если не получится покажи код.

Автор: Mr.Dmitry 9.11.2006 1:12

Цитата(Reptile @ 8.11.2006 18:59)

Автор: Reptile 9.11.2006 14:26

Form1.StringGrid1.Cells[8,1]

for k:=1 to 10 do
Chart1.Series[0].AddXY(k,StrToFloat(Form1.StringGrid1.Cells[8,1]),' ',clREd);

Автор: Mr.Dmitry 9.11.2006 19:19

Цитата(Reptile @ 9.11.2006 10:26)

И не будет

В

Form1.StringGrid1.Cells[8,1]

строка, а нужно Double.
Нужно

for k:=1 to 10 do
Chart1.Series[0].AddXY(k,StrToFloat(Form1.StringGrid1.Cells[8,1]),' ',clREd);

И убедись что не вылазиш за пределы StringGrid.
P.S. Проверил, у меня работает.

Автор: Reptile 9.11.2006 19:33

Автор: мисс_граффити 9.11.2006 22:29

Автор: Reptile 9.11.2006 23:03

Вот:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, StdCtrls, ExtCtrls, TeeProcs, Chart, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Chart1: TChart;
    Button1: TButton;
    Series1: TLineSeries;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   k : Integer;
begin
for k := 1 to 7 do
  Chart1.Series[0].AddXY(k,StrToFloat(Form1.StringGrid1.Cells[k,1]),' ',clREd);
end;

end.

Автор: мисс_граффити 9.11.2006 23:22

Цитата(Reptile @ 9.11.2006 19:03)

Автор: Reptile 9.11.2006 23:37

мисс_граффити, спасибо за поправку

Автор: Mr.Dmitry 12.11.2006 1:39

короч вот что в стрингриде:

Автор: Reptile 13.11.2006 15:09

Вообще не знаю как Ты хотел чтобы этот код работал???

for i := 1 to StringGrid1.RowCount-1 do
   begin
      bez := 0;
          bez := bez + StrToInt(StringGrid1.Cells[7,i]); // это я так понимаю сумма элементов нужного столбца
     Chart1.Series[0].AddXY(i,bez,'',clRed);
  end;

bez := bez + StrToFloat(StringGrid1.Cells[7,i]);

   Chart1.Series[0].Clear;
   bez := 0;
   for j := 1 to StringGrid1.RowCount-1 do
      begin
         bez := bez + StrToFloat(StringGrid1.Cells[7,j]);//подсчитываем сумму элементов
      end;
   Chart1.Series[0].AddXY(1,bez,' ',clRed);//Выводим один столбец с суммой

Автор: volvo 13.11.2006 16:04

for j := 1 to StringGrid1.RowCount-1 do
begin
    bez := bez + StrToFloat(
      StringReplace(
        StringReplace(StringGrid1.Cells[7, j], '.', DecimalSeparator, [rfReplaceAll]),
        ',', DecimalSeparator, [rfReplaceAll]
      ) // подсчитываем сумму элементов

    ); // Независимо от того, точка или запятая стоит в StringGrid
end;

Автор: Mr.Dmitry 13.11.2006 16:30

Все равно не рабоатет (((

Project Project1.exe raised exeption Class EconvertError With Message "' is not a valid Floating value Process stoped
.Use Step or run to continue

Автор: volvo 13.11.2006 16:35

Скриншот, в котором видно StringGrid с данными, выдающими этот Exception приведи... Что ты там в него понабросал, интересно?

Автор: Mr.Dmitry 13.11.2006 23:46

Цитата(volvo @ 13.11.2006 12:35)

Автор: volvo 14.11.2006 1:58

Да не интересует меня полностью проект! Я просил привести снимок экрана с теми ДАННЫМИ, которые ты вводишь, и у тебя возникает исключение. Неужели не понятно, что если я введу правильные данные, зная, какой DecimalSeparator у меня установлен, то ни о каком исключении не может быть и речи?

Ну, как хочешь... Я предложил тебе помощь - ты отказался, дело твоё...

Автор: Mr.Dmitry 14.11.2006 18:19

Цитата(volvo @ 13.11.2006 21:58)

Автор: Reptile 14.11.2006 19:52

Сбрось мне проект на мыло.

Автор: Reptile 15.11.2006 16:52

И так скажу сразу Твой подход очень НЕ хороший.
1. Ты вызываеш

Form6.Show;

procedure Create

var
 Bez:Real;
 j:integer;
begin
 Chart1.Visible := true;
 Chart1.Series[0].Clear;
   bez := 0;
   for j := 1 to Form1.StringGrid1.RowCount-1 do
      begin
         if not(Length(Form1.StringGrid1.Cells[7,j]) = 0) then //Если ячейка не пуста
         bez := bez + StrToFloat(Form1.StringGrid1.Cells[7,j]);//подсчитываем сумму элементов
      end;
   Chart1.Series[0].AddXY(1,bez,' ',clRed);//Выводим один столбец с суммой

stoimost:integer

procedure TForm2.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
var
  Not_DESIMAL : string;
begin
  if DecimalSeparator = ',' then
  Not_DESIMAL := '.'
 else
  Not_DESIMAL := ',';

  if Key = Not_DESIMAL then
  Key := DecimalSeparator;
 if ((Key in ['0' .. '9']))OR(Key = DecimalSeparator) then begin
  if (Key = DecimalSeparator) AND (Pos(DecimalSeparator,(Sender AS TLabeledEdit).Text) > 0) then begin
   Key := Chr(0);
  end;
 end else if (Key=Chr(VK_RETURN))OR (Key=Chr(VK_BACK)) then begin

 end
 else Key := Chr(0);
end;

begin
  if not(Key in ['0' .. '9']) then begin
     Key := Chr(0);
  end;
 end else if (Key=Chr(VK_RETURN))OR (Key=Chr(VK_BACK)) then begin
 end
 else Key := Chr(0);
end;

Автор: Mr.Dmitry 15.11.2006 21:24

Спасибо чел! п насчет сохронения фалов я знаю! раньше все работало а щас глюк какойто! stoimost
я описал как integer ради эксперемента! все остальное учту! спасибо!