Ich habe ein Problem mit TChar. Eigentlich wollte ich mir auch selbst eine Komponente schreiben, aber ich habe mir dann doch TChart noch mal angesehen.
Also, es geht darum dass ich ein Tagesverlauf von verschiedenen Werten als Kurve dastellen möchte.
Ich habe pro Stunde ca 12 Messungen, die Fasse ich zusammen und übergebe die dann an TChart:
Code: Alles auswählen
var
i:integer;
H,M,S,MS:Word;
begin
DataContainer.LoadFromFile('/home/pluto/weather/data/raw/2015/2015-12/2015-12-25.txt',true);
Chart1LineSeries1.SeriesColor:=clRed;
Chart1LineSeries2.SeriesColor:=clBlue;
Chart1LineSeries3.SeriesColor:=clLime;
Chart1LineSeries4.SeriesColor:=clYellow;
for i:=0 to DataContainer.Count-1 do begin
DecodeTime(DataContainer[i].Time,H,M,S,MS);
Chart1LineSeries1.AddXY(h,Double(DataContainer[i].Temp_out));
Chart1LineSeries2.AddXY(h,Double(DataContainer[i].Temp_in));
Chart1LineSeries3.AddXY(h,Double(DataContainer[i].Hum_out));
Chart1LineSeries4.AddXY(h,Double(DataContainer[i].Hum_in));
end;
Chart1.AddSeries(Chart1LineSeries1);
Chart1.AddSeries(Chart1LineSeries2);
Chart1.AddSeries(Chart1LineSeries3);
Chart1.AddSeries(Chart1LineSeries4);
Ich hoffe ihr wisst was ich meine.