Построение графика

[radiokarazinec]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

const
  Delim='    ';


var
  Form1: TForm1;


implementation

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


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

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

procedure Inpup;
var
  i:Integer;
begin
for i:=0 to 39 do
begin
Form1.ListBox1.Items.Add(Arr1[i]);
Form1.ListBox2.Items.Add(Arr2[i]);
end;
for i:=0 to 39 do
Form1.ListBox1.Items.Delete(i);
for i:=0 to 2 do
Form1.ListBox2.Items.Delete(i);
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;

end.

у меня есть два ListBox, Chart, и кнонки, при нажатии на кнопку Data в ListBox появляются данные и вот по этим данным мне надо построить график. из одного бокса по точки оси X? из другого по Y. Типа амплитуда и время распространения сигнала. график должен быть один. тут из-за того что Strings не хочет строить. Подкинте плиз свои гениальные идеи

[VadikV]

используй StrToFloat для перевода из текста в число

[radiokarazinec]

а как это реализовать, вот что должно быть написано?

StrToFloat('Arr1[i]')

?

[bananasus]

StrToFloat(s);

где s строка.

[radiokarazinec]

ну вот напиши плиз как оно будет, у меня же там 2 массива, вообще не знаю

[Человек_Борща]

Сообщение от radiokarazinec

а как это реализовать, вот что должно быть написано?

StrToFloat('Arr1[i]')

?

Да вы написали привильно. Массив строковой то, следовательно Arr1[i] возвращает строу из массива под номером i.

Но для начала нужно узнать длинну массива.

всё будет примерно так:

procedure Ox; //Ось Ох
var
  i,l:integer;
begin
l:=Length(Arr1); //Узнаём длинну массива.
for i:=0 to l do
begin
{тут переменная для хранения нового Float}:=StrToFloat(Arr1[i]); //передаём в переменную.
{Далее сторите график}
end;
end;

procedure Oy; //Ось Оy
var
  i,l:integer;
begin
l:=Length(Arr2); //Узнаём длинну массива.
for i:=0 to l do
begin
{тут переменная для хранения нового Float}:=StrToFloat(Arr2[i]); //передаём в переменную.
{Далее сторите график}
end;
end;

1. У вас должна быть формула графика который вы будите стоить.
2. Вы должны постоить сам график Ox и Oy.

Чтобы не морать мозг сее за зря берите свою формулу , бумагу,линейку и карандашь. А и также вспоминайте матиматику 7-10 классов. Там учили как строить графики.

[radiokarazinec]

{тут переменная для хранения нового Float}:=StrToFloat(Arr2[i]); //передаём в переменную.

а что тут сразу двоеточие идет?
оно мне пишет в этой строчке ошибку, если я перед двоеточием ставлю a. который я определил как array of double

[Ошибка] Unit1.pas(100): Incompatible types: 'Extended' and 'dynamic array'

так у меня нет формулы мне надо просто по точкам посроить из массивов

[ArtGrek]

если у тебя координаты созраняюца в массив то

{тут переменная для хранения нового Float}[Index]:=StrToFloat(Arr2[i]); //передаём в переменную.

[Rin]

ошибка "несоответствие типов: вещественный и динамический массив".
надо так.

setlength(a,high(a)+1);
a[high(a)]:=StrToFloat(Arr2[i]);

[radiokarazinec]

и как из этого построить график. ну привидите пример кода плиз