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

radiokarazinec

Дата 24.2.2011, 23:57 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


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 не хочет строить.Желательно с кодом.Зараннее благодарен!!!

kami

Дата 25.2.2011, 00:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата

.Как с этим кодом это возможно

Я бы сказал - никак. Этот код не может работать физически - как минимум в рантайме будет ListIndexOutOfBounds

Код


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); // зачем удалять то, что только что добавили в предыдущем цикле?
                                 // и - при удалении из списка делают Downto цикл. Иначе будет приведенная мной ошибка.

Цитата(radiokarazinec @ 24.2.2011, 23:57

)

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

Где код, которым пытаетесь строить график?

Добавлено через 2 минуты и 21 секунду

Цитата(radiokarazinec @ 24.2.2011, 23:57

)

тут из-за того что Strings не хочет строить.

И в дополнение - хотя бы привели пример, что "складывается" в элементы TStrings.

Это сообщение отредактировал(а) kami - 25.2.2011, 00:23

northener

Дата 25.2.2011, 02:50 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

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

[quote=Как с этим кодом это возможно, построение графика[/quote]
Deja vu.

Автору.
У TStrings есть свойства Names и Values. Прочитайте про эти свойства в хелпе.

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

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

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