Einzelnen Beitrag anzeigen

Thanatos81
(Gast)

n/a Beiträge
 
#1

TChart, TLineSeries erzeugen

  Alt 11. Okt 2005, 18:19
Hi DP!

Folgender Code spuckt bei mir ne "Ungültige Zeigeroperation" aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var temp : TLineSeries;
begin
  Chart1.SeriesList.Clear;
  temp := TLineSeries.Create(Chart1);
  while not(zqDaten.EoF) do
    begin
      temp.AddXY(zqDaten.Fields.Fields[0].asFloat,zqDaten.Fields.Fields[1].asFloat);
      zqDaten.Next;
    end;
  Chart1.AddSeries(temp);
  zqDaten.First;
  zqDaten.EnableControls;
end;
Allerdings nicht beim temp := TLineSeries.Create(Chart1) oder beim Chart1.AddSeries(temp) wie ich vermutet hatte, sondern erst nach Beendigung der Prozedur

Jemand eine Idee?

Schönen Gruß,
  Mit Zitat antworten Zitat