delphi TChart

[vyacheslovik]

Как сделать так чтобы в классе TChart я мог вводить в значение X я мог вводить строковые переменные (Делаю граффик по заданным данным где х - дата, y - какое либо значение)
procedure TForm1.Button1Click(Sender: TObject);

var y:real;
t:array [1..5] of real;
g : TStringList;
l : string;

begin
l := '1 2 3 4 5';
for var i:= 1 to 5 do
begin
g:= TStringList.Create;
g.Delimiter := ' ';
g.DelimitedText := l;
Chart1.Series[0].AddXY(i,StrToInt(g[i-1]))
end;

end;

end.

[jillitil]

Предварительно добавьте график в дизайнере формы.

PROCEDURE TForm1.BitBtn1Click(Sender: TObject);
VAR
    i: Integer;
BEGIN
    WITH TStringList.Create DO BEGIN
        Delimiter := ' ';
        DelimitedText := '1.5 0.2 1.1 4.11 -1.8';
        FOR i := 0 TO Count - 1 DO
            Chart1.Series[0].AddXY(i, StrToFloat(Strings[i]));
        Free;
    END;
END;

[vyacheslovik]

Насколько я понял код(плохо) можно использовать нецелые значение для даты, но мне нужно чтобы снизу в значениях x были значения формата 01.01.2023. Данные считываются с текстового файла с 4мя столбцами, где в 1 дата формата выше, а 3 другие различные числа. Код сейчас выглядит так

procedure TForm1.Button1Click(Sender: TObject);

var

EMA,a : real;
g : TStringList;
f : TextFile;
i,b : integer;
l : string;

begin
  a := StrToFloat(Edit2.Text);
  AssignFile(f, 'test.txt');
  reset(f);
  b := StrToInt(Edit1.Text);
  i:=1;
  Chart1.SeriesList[0].Clear;
  Chart1.SeriesList[1].Clear;
  while not EOF(f) do
    begin
    readln(f,l);
    g:= TStringList.Create;
    g.Delimiter := ' ';
    g.DelimitedText := l;
    Chart1.Series[0].AddXY(i,StrToInt(g[b]));
    if i = 1 then
      EMA := StrToInt(g[b])
    else
      EMA := StrToInt(g[b]) * a + (1 - a) * EMA;
    Chart1.Series[1].AddXY(i,EMA);
    i:=i+1
  end;
end;

[jillitil]

USES    DateUtils;
...
...
VAR
    i: Integer;
    S: TLineSeries;
    AxisDate: TDateTime;
BEGIN
    Chart1.View3D := False;
    S := TLineSeries.Create(Chart1);
    Chart1.AddSeries(S);

    AxisDate := Today;
    WITH Chart1.Series[0] DO BEGIN
        XValues.DateTime := True;
        FOR i := 0 TO 10 DO BEGIN
            AddXY(AxisDate,  Sin(i/5));
            AxisDate := IncDay(AxisDate);
        END;
    END;

Или (Рис.2) просто бросьте на форму ТЧарт и БитБатн. Код хитрый, кнопку можно жмакать несколько раз.

USES      Series, DateUtils;
PROCEDURE TForm1.BitBtn1Click(Sender: TObject);
VAR       i: Integer;
BEGIN
    Chart1.AddSeries(TLineSeries.Create(Chart1));
    WITH Chart1, Series[SeriesCount - 1], TStringList.Create DO BEGIN
        XValues.DateTime:= True;
        Delimiter := ' ';
        DelimitedText := '1.5 0.2 1.1 4.11 -1.8';
        FOR i := 0 TO Count - 1 DO
            AddXY(Today + i, StrToFloat(Strings[i]));
        Free;
    END;
END;