und weiter gehts mit von mir noch nie benutzten Komponenten:
Ich hab ein TChart, in welches ich erfolgreich auch Werte einfügen konnte.
Jetzt fehlen noch die letzten "Kosmetika" (Siehe Screenshot)
2) Gelb markiert: Die X-Achsen-Beschriftung fehlt ganz. Sind bei mir Strings (Format: "1 - 2026-04-15" --> Laufende Zahl mit eine ISO-Datum)
Ich schiele schon die ganze Zeit Richtung TDbChartSource, bekomme es aber nicht hin (Falls es überhaupt der richtige Weg ist)
Falls wichtig: Hier die Schleife, wie ich die Daten zum Chart hinzufüge
Code: Alles auswählen
procedure TFormChart.DrawChart;
Var
x:Integer;
i:Integer;
d:Double;
n:String;
begin
srcBuffer.DataSet.First;
chtReport.ClearSeries;
chtReport.AxisList[1].Intervals.Count:=srcBuffer.DataSet.Fields.Count-1; //horiz. Axis
SetLength(chtSeries, CountCategories); //Set Length of Dynamic Array holding the individual LineSeries
For i:=0 To CountCategories-1 Do
Begin
chtSeries[i]:=TLineSeries.Create(chtReport);
chtSeries[i].LinePen.Width:=2;
chtSeries[i].ShowPoints:=True;
chtSeries[i].SeriesColor:=SeriesColor[i];
chtReport.AddSeries(chtSeries[i]);
For x:=0 To srcBuffer.DataSet.Fields.Count-1 Do
Begin
d:=srcBuffer.DataSet.Fields[x].AsFloat;
n:=srcBuffer.DataSet.Fields[x].FieldName;
chtSeries[i].AddXY(x,d,n);
End;
srcBuffer.DataSet.Next;
end;
end; - chart.PNG (16.45 KiB) 271 mal betrachtet
Hier auch mal von Hand "so in etwa" nachgestellt in Excel
- chart 2.PNG (34.44 KiB) 256 mal betrachtet
Verein
Links
Suche