Forum: Programmieren allgemein
by Benmik,
4. Okt 2020
Du bist Bestatter oder Archäologe, jedenfalls kennst du dich mit den prähistorischen Gepflogenheiten offenbar besser aus!
Forum: Programmieren allgemein
by Benmik,
3. Okt 2020
Aus gegebenem Anlass habe ich dieses Thema exhumiert. Vielleicht gibt es ja inzwischen bessere Ansätze, aber "Viel zu langsam" kann ich nicht nachvollziehen:procedure TestCode;
var Dbl1,Dbl2:Double;
i,Bis:integer;
StopWatch:TStopWatch;
begin
Dbl2 := 654321.123456;
StopWatch := TStopWatch.StartNew;
Bis := Min(100000000,High(integer));
For i := 0 to Bis do begin
Dbl1 :=...