Ich habe einige Zeilen hinzugefügt zu meinem Programm, damit jetzt die Linien(Reihen zur Laufzeit erzeugt werden. Das habe ich geändert, da ich Probleme mit dem unteren Befehl, da ich ich nach dem löschen, keine neuen Reihen(also Feste vorher in Tchart definierte) erzeugen konnte.
Jetzt ist das Programm mit den hinzzugefügten befehltzeilen wesentlich langsamer, wie kann ich das ändern
Delphi-Quellcode:
procedure TForm2.Button4Click(Sender: TObject);
var y,i,x,z,v : Integer;
[b]Var MySeries: TLineseries;////Dies wurde Hinzugefügt[/b]
Counter : array[0..1500] of Integer;
begin
If ComboBox1.ItemIndex = 0 Then
Begin
for y := 0 to 36 do
Counter[y] := 0;
for x := Form1.meineListe.count - 1 downto 0 do
begin
z:=StrToInt(Form1.meineListe.Strings[x]);
i:=Form1.meineListe.count-x;
for y := 0 to 36 do
begin
if (z in Form1.werte[y]) then
begin
Counter[y] := 0;
end
else
begin
Inc(Counter[y]);
end;
Begin
[b]MySeries:= TLineseries.Create( Self );;////Dies wurde Hinzugefügt
MySeries.ParentChart:= Chart1;;////Dies wurde Hinzugefügt[/b]
with Chart1.SeriesList[ y ] do
AddXY( i,Counter[y] );
end;
end;
end;
Dies benutze ich zum löschen von TChart
Delphi-Quellcode:
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Chart1.FreeAllSeries;
end;