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

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

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

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

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

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

нужно построить график
Код:
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 не хочет строить.Желательно с кодом.Зараннее благодарен!!!
radiokarazinec вне форума
Старый 24.02.2011, 22:53   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

кросс-пост.

закрыто.
Serge_Bliznykov вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возможно вы знаете как исправить это RockyNV Компьютерное железо 3 31.05.2010 19:26
После N отправленых писем сменить имейл, как это реализовать кодом Lauri Общие вопросы Delphi 3 02.04.2010 16:03
как это реализовать dulaev Microsoft Office Excel 12 26.01.2010 18:13
как реализовать это на Делфи ??? akasex Общие вопросы Delphi 4 15.06.2008 01:10
Возможно ли такое...если да то как это сделать?! prizrak1390 Общие вопросы Delphi 9 03.01.2008 10:14