| ← Март 2017 → | ||||||
|
2
|
3
|
4
|
5
|
|||
|---|---|---|---|---|---|---|
|
6
|
7
|
9
|
10
|
11
|
12
|
|
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
21
|
22
|
23
|
24
|
25
|
26
|
|
27
|
28
|
29
|
30
|
31
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
... Здравствуйте! У меня возникли сложности с таким вопросом: Код :: выделить код //сохраняем данные графика в текстовые файлы
procedure TForm1.SaveToTxtFile1Click(Sender: TObject);
var
sx, sy: TStringList;
i: integer;
begin
sx := TStringList.Create;
sy := TStringList.Create;
for i := 0 to chart.Series[0].XValues.Count - 1 do
sx.Add(FloatToStr(chart.Series[0].XValues.Value[i]));
for i := 0 to chart.Series[0].YValues.Count - 1 do
sy.Add(FloatToStr(chart.Series[0].YValues.Value[i]));
sx.SaveToFile('x.txt');
sy.SaveToFile('y.txt');
sx.Free;
sy.Free;
end;
//читаем данные из текстовых файлов и создаём на их основе новый график
procedure TForm1.LoadFromTxtFile1Click(Sender: TObject);
var
sx, sy: TStringList;
i: integer;
begin
sx := TStringList.Create;
sy := TStringList.Create;
sx.LoadFromFile('x.txt');
sy.LoadFromFile('y.txt');
for i := 0 to sx.Count - 1 do
chart.Series[0].AddXY(StrToFloat(sx[i]), StrToFloat(sy[i]));
sx.Free;
sy.Free;
end;Помогите мне модернизировать этот код так, что бы файл был один и в него можно было бы записать данные нескольких графиков с возможностью их воспроизведения. Данные по оси X должны идти первой колонкой. Файл обозвать (FormatDateTime('dd.mm.yyyy_hh.mm', now) + '.txt') и добавить компонент TOpenDialog для возможности выбора.
Дата отправки: 19.02.2017, 20:08 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, 08101967! Код (Pascal) :: выделить код unit q170221;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Chart1: TChart;
Series1: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private{ Private declarations }
public{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//create
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
Form1.Chart1.FreeAllSeries;
Form1.Chart1.AddSeries(TLineSeries.Create(self));
Form1.Chart1.Series[0].Clear;
for i := -10 to 25 do
Form1.Chart1.Series[0].AddXY(i, i * i / 3, '');
Form1.Chart1.AddSeries(TLineSeries.Create(self));
Form1.Chart1.Series[1].Clear;
for i := -20 to 50 do
Form1.Chart1.Series[1].AddXY(i, i * i / 5, '');
Form1.Chart1.AddSeries(TLineSeries.Create(self));
Form1.Chart1.Series[2].Clear;
for i := 0 to 300 do
begin
Form1.Chart1.Series[2].AddXY(i, 4 * sin(i * pi / 180), '');
end;
end;
//save
procedure TForm1.Button2Click(Sender: TObject);
var
a: string;
d: TDateTime;
z: TStringList;
i, j: integer;
function ReverseDateFormat(a:string):string;
begin
if pos('.',a)>0 then a:=ReverseDateFormat(copy(a,pos('.',a)+1,length(a)))+'.'+copy(a,1,pos('.',a)-1);
ReverseDateFormat:=a;
end;
begin
for j:=0 to Form1.Chart1.SeriesCount-1 do
begin
z := TStringList.Create;
for i:=0 to Form1.Chart1.Series[j].Count-1 do
z.Add(FloatToStr(Form1.Chart1.Series[j].XValue[i])+' '+
FloatToStr(Form1.Chart1.Series[j].YValue[i]));
d:=now;
a:=DateToStr(d);
while pos('/',a)>0 do a[pos('/',a)]:='.';
a:=reverseDateFormat(a);
a:=a+'.s'+chr(ord('0')+(j div 10))+chr(ord('0')+(j mod 10))+'.txt';
z.SaveToFile(a);
z.Free;
end;
end;
//load
procedure TForm1.Button3Click(Sender: TObject);
var
openDialog:TOpenDialog;
w: string;
x, y: real;
z: TStringList;
i: integer;
begin
Form1.Chart1.FreeAllSeries;
openDialog := TOpenDialog.Create(self);
openDialog.InitialDir := GetCurrentDir;
openDialog.Options := [ofFileMustExist];
openDialog.Filter :='*.txt';
Form1.Chart1.AddSeries(TLineSeries.Create(self));
Form1.Chart1.Series[0].Clear;
if openDialog.Execute
then
begin
w:=openDialog.FileName;
while pos('\',w)>0 do delete(w,1,pos('\',w));
z:=TStringList.Create;
z.LoadFromFile(w);
for i:=0 to z.Count-1 do
begin
w:=z[i];
x:=StrToFloat(copy(w,1,pos(' ',w)-1));
delete(w,1,pos(' ',w));
y:=StrToFloat(w);
Form1.Chart1.Series[0].AddXY(x,y);
end;
z.Free;
end
else ShowMessage('немогу открыть файл');
openDialog.Free;
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
