Hallo Leute,
Das Problem welchesich habe ist, dass die Formattierung die ich während der Designtime am TChart anwende, nicht in der Runtime verwendet wird.
Hm, also das konnte ich bei mir (Delphi XE) nicht beobachten. 2 Dinge mache ich anders als du, aber ob das etwas bewirkt, kann ich dir nicht sagen.
1. da sich das Count verändert, wenn ein free stattfindet:
Delphi-Quellcode:
while Chart1.SeriesList.Count > 0 do
begin
Chart1.SeriesList.Items[Chart1.SeriesList.Count-1].Free;
end;
2. Mache ich kein AddSeries sondern ich mach so:
Delphi-Quellcode:
while not tblSerNr2.Eof do
begin
if not tblDok.Eof then
begin
lSeries := TLineSeries.Create(self);
lSeries.ParentChart := Chart1;
lSeries.Title := 'Temperatur '+tblSerNr2.FieldByName('Seite').AsString;
lSeries.LinePen.Style := lStyle;
if btnBW.Down then
begin
lSeries.SeriesColor := clBlack;
end else
begin
lSeries.SeriesColor := lcColor[j];
end;
if ord(lStyle) > 5 then lStyle := psDash else
inc(lStyle);
for i := 0 to 119 do
begin
sField := Format('Dampftemperatur%d',[i]);
if tblDok.FieldByName(sField).AsFloat > 0 then
lSeries.AddXY(i*3,tblDok.FieldByName(sField).AsFloat);
end;
end;
tblserNr2.Next;
inc(j);
end;