Ich möchte in TChart eine Reihe Darstellen(Hier Counter[145], dafür müssen vorher die Counter abgeleitet werden von einer Stringlist(meineListe).Und von diesem Counter soll nun der Counter[145] abgeleitet werden.
Also im 1.Teil die Counter 48..52 berechnet für jeder Position in der Stringliste, Im 2. Teil sollte der Counter[145], das Minimum der Counter[48,50,52] zu jedem Item in der Stringliste, das sollte dann in TChart ausgegeben werden.Aber Irgendwie Zeigt die zugeordnete Serie immer nur die Werte 0 bis 2 zu jedem Item dar!
Delphi-Quellcode:
Begin
for y := 48 to 52 do
Counter[y] := 0;
for y := 48 to 52 do
for x := Form1.meineListe.count - 1 downto 0 do
begin
i:=Form1.meineListe.count-x;
if (StrToInt(Form1.meineListe.Strings[x]) in Form1.werte[y]) then
begin
Counter[y] := 0;
end else
begin
Inc(Counter[y]);
end; //////////Wenn ich dies in TChart ausgeben habe ,klappte es /1.Teil
begin ////////Hier meine Neuerung die nicht wirklich will/2.Teil
Counter[145]:= Min(Counter[48],Min(Counter[50],Counter[52]));
with Chart1.SeriesList[ 148 ] do
AddXY( i,Counter[145] );
end;
end;
Esmüssten zuerst alle Counter[48..52] zu einem Item ausgerechnet werden und dann Counter[145]
und nun sollte der nächste item folgen für[48..52]....