Mehrere Kurven in einem TChart

[Karlson]

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.