Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.02.2011, 22:08   #1
radiokarazinec
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 47
По умолчанию String... построение графика

у меня есть два ListBox, Chart, и кнонки, при нажатии на кнопку Data в ListBox появляются данные и вот по этим данным мне надо построить график. из одного бокса по точки оси X? из другого по Y. Типа амплитуда и время распространения сигнала. график должен быть один. тут из-за того что Strings не хочет строить. Подкинте плиз свои гениальные идеи. покажите плиз на примере кода
вот листинг:
Код:
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.
radiokarazinec вне форума
Старый 23.02.2011, 22:30   #2
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

слушаи кончаи одни и теже темы по 5 раз создавать!
у тебя есть 2 массва с координатами х и у,
вот перебираи их в цикле, переводи в число (IntToStr) и работаи с координатами
VirusN13
ArtGrek вне форума
Старый 23.02.2011, 22:33   #3
radiokarazinec
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 47
По умолчанию

ну плиз помоги эт реализовать, тебе ведь эт легко
radiokarazinec вне форума
Старый 23.02.2011, 23:07   #4
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Тс, вам нужна форула постоения графика, также координатная плоскость(сами ещё на чарте нарисовать должны), и математика за 7-8 класс.

p.S. Вообще вам бы бан пора дать на форуме(За то что наплодили одних и тех же тем, но с разными заголовками). Вы ничего сами не сделали. Задание ваше, но вы сами его делать даже не хотите.
Человек_Борща вне форума
Старый 23.02.2011, 23:09   #5
radiokarazinec
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 47
По умолчанию

так а если формулы нет а только набор точек?
radiokarazinec вне форума
Старый 23.02.2011, 23:10   #6
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Тогда выстраивате график по точкам!
Человек_Борща вне форума
Старый 23.02.2011, 23:12   #7
radiokarazinec
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 47
По умолчанию

так а как это?
radiokarazinec вне форума
Старый 24.02.2011, 00:16   #8
radiokarazinec
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 47
По умолчанию

ну подсобите уто-нибудь, оч надо
radiokarazinec вне форума
Старый 24.02.2011, 09:26   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию


Данная тема закрыта как кросс-пост этой темы:
http://www.programmersforum.ru/showthread.php?t=139541
Построение графика
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построение графика Foxx Microsoft Office Excel 5 04.11.2019 16:21
Построение графика Mazepa Помощь студентам 2 09.02.2010 11:07
построение графика tanka123 Microsoft Office Excel 1 17.06.2009 09:17
(С++) Построение графика tg(x)=y. Panterka Помощь студентам 2 13.12.2007 09:32
Построение графика KARSH Общие вопросы Delphi 3 28.05.2007 17:05