Einzelnen Beitrag anzeigen

Oracle
(Gast)

n/a Beiträge
 
#2

AW: Mehrere Kurven in einem TChart

  Alt 8. Jun 2010, 14:27
Es liegt womöglich am Typ den du für deine Serien verwendest.
Versuch es mal mit TLineSeries wie im folgenden Beispiel.
Allerdings habe ich es nicht unter Lazarus getestet.

Code:
var
  FLine : Array[0..5] of TChartSeries;
  seriescount : Integer;
  i: Integer;
  x1, y1 : Double;
begin
  seriescount := 0;

  while seriescount < 6 do
  begin
    Fline[seriescount] := TLineSeries.Create(Chart1);
    Fline[seriescount].Title := 'line';
    Fline[seriescount].SeriesColor := clRed;
    Chart1.AddSeries(Fline[seriescount]);

    x1 := 0;
    y1 := 0;
    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);
  end;
  Mit Zitat antworten Zitat