Hi,
Ich versuche momentan vergeblich mehere Kurven in einem TChart darzustellen.
Ich nutze als
IDE übrigens nicht Delphi, sondern Lazarus (Linuxrechner).
Delphi-Quellcode:
var FLine : Array[0..5] of TSerie;
Fline[seriescount] := TSerie.Create(Chart1);
Fline[seriescount].ShowLines := true;
Fline[seriescount].ShowPoints := true;
Fline[seriescount].Pointer.Style := psRectangle;
Fline[seriescount].Title := 'line';
Fline[seriescount].SeriesColor := clRed;
Chart1.AddSerie(Fline[seriescount]);
for i := 1 to 10 do begin
Fline[seriescount].AddXY(x1, y1, '', clGreen);
X1 := X1 + 1.5;
if random(2) >= 0.5 then Y1 := Y1 + random(10)
else Y1 := Y1 - random(5);
end;
inc(seriescount);
Diese Codezeile mehrfach ausgeführt sollte mir mehrere Kurven ins TChart einfügen. Es wird aber immer nur die aktuelle Kurve angezeigt. Kann mir jemand helfen?
Danke.