@ConstantGardener
-Die Werte werden Durch Array_Max(Counter,0,10) zusammengefast
Delphi-Quellcode:
function TForm2.Array_Max(const aJeton: array of Integer; aStart, aEnd: Integer):Integer;
Var i:Integer ;
begin
Result := 0;
for i := aStart to aEnd do
Result := MaxIntValue([Result,aJeton[i]]);
end;
-Die Aufteilung löst nicht das Problem eines schnelleren Berechnung des Graphen
@DGL-luke
Coole Idee:
Delphi-Quellcode:
Chart1.SeriesList[0].Beginupdate;
Chart1.SeriesList[0].Endupdate;
Bringt etwa eine 50% Verbesserung bei meinen Programm.Echt Coole Idee!!!
Danke!
Fällt jemand noch eine Idee ein, der Procedure hier Beine zu machen?
