VPF::не получается построить график!!!

radiokarazinec

Дата 27.2.2011, 18:59 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

нужно построить график
вот код программы:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    Chart1: TChart;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Delim='    ';


var
  Form1: TForm1;


implementation

{$R *.dfm}
var
Arr1,arr2:array of string;


function FirstToArr1(s:string):string;
begin
  //Копируем первую часть строки
Result:=Copy(s,1,AnsiPos(Delim,s)-1);
end;

function secondToArr2(s:string):string;
begin
  //Удаляем первую часть строки + делтель, остальное в результат
System.Delete(s, 1, AnsiPos(Delim, s)+3);
Result:=s;
end;

procedure Inpup;
var
  i:Integer;
begin
for i:=5 to 45 do
begin
Form1.ListBox1.Items.Add(Arr1[i]);
Form1.ListBox2.Items.Add(Arr2[i]);
end;
Form1.ListBox1.Items.SaveToFile('1.txt');
Form1.ListBox2.Items.SaveToFile('2.txt');
end;



procedure TForm1.Button1Click(Sender: TObject);
var
  ts:TStringList;
  i:Integer;
  myDir:string;
begin
  myDir:=ExtractFilePath(ParamStr(0));
  ts:=TStringList.Create;
  try
  ts.LoadFromFile(myDir+'Data.txt');
  for i:=0 to ts.Count -1 do
  begin
    //Заполняем массивы
  Arr1[i]:=FirstToArr1(ts.Strings[i]);
  Arr2[i]:=secondToArr2(ts.Strings[i]);
  end;
  Inpup;
  finally
  ts.Free;
  end;
end;






procedure TForm1.BitBtn1Click(Sender: TObject);////ЭТА КНОПКА ОТВЕЧАЕТ ЗА ПОПОСТРОЕНИЕ ГРАФИКА
var
a,b : array of extended;
    i:integer;
    Line : TLineSeries;
begin
for i:=0 to 44 do
a[i]:=StrToFloat(Arr1[i]);
b[i]:=StrToFloat(Arr2[i]);
Chart1.SeriesList.Clear;
Line := TLineSeries.Create(Chart1);
Line.AddXY(a,b);
//Line.AddArray(b[high(b)]);
Line.LinePen.Color := clBlue;
Line.LinePen.Width := 2;
Chart1.AddSeries(Line);
end;
//Chart1. Series[1].Add(a[high(a)]);
//Chart1. Series[1].Add(b[high(b)]);



end.

у меня есть два ListBox, Chart, и кнонки, при нажатии на кнопку Data в ListBox появляются данные и вот по этим данным мне надо построить график. из одного бокса по точки оси X? из другого по Y. ТАМ В КОДЕ У МЕНЯ ЕЩЕ ИЗ КАЖДОГО ListBoxa записывает значения в 2 текстовых файла. НО есть у меня КАКАЯ-ТО ЗАПАРА НЕ ХОЧЕТ СТРОИТЬ ТО КАКИЕ-ТО ОШИБКИ ВЫДАЕТ. ДО КНОПКИ ПОСТРОЕНИЯ ГРАФИКА ВРОДЕ БЫ КАК ВСЕ РАБОТАЕТ НОРМАЛЬНО...ПОДСОБИТЕ ПЛИЗ ЧТОБЫ ЗАРАБОТАЛО И ПОСТРОИЛО ГРАФИК
ВОТ ЕСЛИ ЧТО ССЫЛКА НА ФАЙЛ
http://ifolder.ru/22136473

Данкинг

Дата 27.2.2011, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(radiokarazinec @ 27.2.2011, 18:59

)

КАКИЕ-ТО ОШИБКИ ВЫДАЕТ

Какие?

--------------------

There's nothing left but silent epitaphs.

radiokarazinec

Дата 27.2.2011, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

[Ошибка] Unit1.pas(105): Incompatible types: 'Double' and 'dynamic array'\
ну вот такая, а если там ставишь не a,b а a[i],b[i] то
выскакивает окно Debugger Exception Notification, топ по ходу потому что у меня до этого массивы состоят из строк, а для графика же надо integer? подсоби чтоб он строил, если не тяжело....

Данкинг

Дата 27.2.2011, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(radiokarazinec @ 27.2.2011, 19:55

)

массивы состоят из строк, а для графика же надо integer

Дык, задай массив нужного типа, в чём проблема?

--------------------

There's nothing left but silent epitaphs.

radiokarazinec

Дата 27.2.2011, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

в том что у мя массив из ListBox, а он там априори стринг

Данкинг

Дата 27.2.2011, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А функция StrToInt на что? smile

--------------------

There's nothing left but silent epitaphs.

radiokarazinec

Дата 27.2.2011, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 24.2.2011

Репутация: нет
Всего: нет

ну и как мне целый массив переделать, пробывал, может не так описываю эту процедуру, покажи плиз

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »