Построение графика...Как с этим кодом это возможно реализовать?

  • Автор темы radiokarazinec
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

radiokarazinec

#1
нужно построить график
Код:
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 не хочет строить.Желательно с кодом.Зараннее благодарен!!!
 
Статус
Закрыто для дальнейших ответов.