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.

[Oracle]

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;

[Karlson]

Hi,

Ich denke TLineSeries könnte die Lösung sein. Leider bekomme ich in der IDE den Fehler:


unit1.pas(27,38) Error: Identifier not found "TLineSeries"

Ich habe die Unit TSeries unter uses, würde aber nicht darauf schwören, dass diese auch für TLineSeries die richtige ist. Leider ist Lazarus an manchen Stellen nicht so gut dokumentiert.

Weiß hier vielleicht trotzdem jemand weiter?

Danke

[freak4fun]

TLineSeries ist in Series. ;)

[Karlson]

Das habe ich befürchtet...Irgendeine Idee warum es trotzdem nicht funktioniert?

Per Google habe ich zumindest erfahren, dass es TLineSeries in der TChart-Komponente von Lazarus gibt...(geben müsste...)

[freak4fun]

Geht vielleicht TASeries? (Quelle der Vermutung)

[Karlson]

Also TASeries war immer schon die Unit die ich unter Unit hatte, damit geht es also nicht.

[freak4fun]

Hast du die Möglichkeit deine Dateien samt Inhalt zu durchsuchen? Unter Win7 geht das. So such ich nach Klassen.

[Oracle]

Diese Möglichkeit bietet dir auch die GExperts Suche. Die kann ich jedem wärmstens empfehlen