Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите начинающим! Пожалуйста... :confused:  (Прочитано 5874 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Алиночка-kis
Гость
« : 07-11-2006 06:06 » 

У меня есть 2 массива, 1 - стринговый, второй - переменные типа real, нужно по ним построить столбчатую диаграмму, где 1 массивэто подписи, в второй, величина столбцов. Как это сделать? С помощью Tchart, это я понимаю, но как?   С ума сойти...
Записан
x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #1 : 07-11-2006 12:47 » 

Код:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
  ABarSeries: TBarSeries;
begin
  Randomize;
  ABarSeries := TBarSeries.Create(Self);
  Chart1.AddSeries(ABarSeries);
  for i := 0 to 11 do begin
    StringGrid1.Cells [0, i] := LongMonthNames [i + 1];
    StringGrid1.Cells [1, i] := FloatToStr (Random * 1000);
    ABarSeries.AddBar(StrToFloat (StringGrid1.Cells [1, i]), StringGrid1.Cells [0, i], Random ($FFFFFF))
  end;
end;

end.

Записан

x77
Модератор

ro
Offline Offline
Пол: Мужской
меняю стакан шмали на обратный билет с Марса.


« Ответ #2 : 07-11-2006 12:51 » new

скрин-шот не влез, увы. посему на пальцах:

на форме лежат StringGrid1 и Chart1, у грида ColCout = 2, RowCount = 12, FixedRows = 0. остальное - по дефолту.
Записан

Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines