Форум программистов Контакты:
О проблемах с регистрацией, почтой и по другим вопросам пишите сюда - post@programmersforum.ru
По необходимости будем регистрировать вручную. И проверяйте папку спам!
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

Вернуться   Форум программистов > Новички в программировании > Помощь студентам

Ответ
 
Опции темы
Старый 08.04.2013, 17:56   #1
celest
 
Регистрация: 08.05.2012
Сообщений: 5
Репутация: 10
По умолчанию TChart Delphi. Создать график из значений StringGrid

Есть рабочая программа. Данные в StringGrid вводятся с Edit.
Подскажите, как вывести значения из Edit5 в строку, под первой и можно ли построить график с вещественными числами и как это сделать?

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, TeEngine, Series, ExtCtrls, TeeProcs, Chart;
 
type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    Button1: TButton;
    Chart1: TChart;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Series2: TBarSeries;
    Series1: TLineSeries;
    Edit5: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Col, Row : Integer;
  X, Y : Double;
  Sg : TStringGrid;
  S : String;
begin
  Sg := StringGrid;
  Series1.Clear;
  Row := Sg.FixedRows;
  for Col := Sg.FixedCols to Sg.ColCount - 1 do begin
    X := StrToFloatDef( Sg.Cells[Col, Row], 0 );
    Y := StrToFloatDef( Sg.Cells[Col, Row], 0 );
    //Легенда
       Series1.AddXY(X, Y, S);
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i,str, k: integer;
begin
  str:=1;
  StringGrid.RowCount:=StringGrid.RowCount+1;
  StringGrid.Col:=1;
  StringGrid.SetFocus;
  StringGrid.Cells[1,str]:=Edit1.Text;
  StringGrid.Cells[2,str]:=Edit2.Text;
  StringGrid.Cells[3,str]:=Edit3.Text;
  StringGrid.Cells[4,str]:=Edit4.Text;
      for i:=2 to   5 do
    begin
      k:=0;
      StringGrid.ColCount:=StringGrid.ColCount+2;
      k:=k+1;
    StringGrid.Cells[k,i]:=Edit5.Text;
         end;
  end;
 
end.

Вложения
Тип файла: rar исходник.rar (252.1 Кб, 3 просмотров)

Последний раз редактировалось celest; 08.04.2013 в 19:08.
celest вне форума   Ответить с цитированием
Старый 08.04.2013, 19:40   #2
Stilet
Белик Виталий :)
СуперМодератор
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 45,399
Репутация: 5264
По умолчанию

Цитата:
как вывести значения из Edit5 в строку, под первой
Не понял...
Цитата:
можно ли построить график с вещественными числами
Да.
Цитата:
как это сделать?
Кидай компонент Chart. Создавай ему серию. Далее у серии есть метод AddXY(x,y).
Его и используй.
http://yandex.ua/yandsearch?text=Ser...oc=50&lr=20554
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ


Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
График по точкам (Tchart) Qlimax Общие вопросы Delphi 0 23.05.2012 21:51
график в TChart Funy Помощь студентам 1 16.05.2012 15:50
Не строится график TChart sergey_dmitrievich C++ Builder 1 27.09.2011 07:40
график TChart в MS Word natasha Компоненты Delphi 7 25.06.2007 13:25




16:02.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.