Bevor man optimiert, sollte man erst einmal die Fehler beseitigen und halbwegs sicher sein, daß der Code korrekt ist. Dein Code crasht zB mit Stackoverflow, wenn zB Start=Ende=0 ist. Eine mögliche Korektur:
Delphi-Quellcode:
if (High(IntArray) > 0) and (Ende>Start) then
begin
//...
end;
Weiters sollte man die Compilerhinweise beachten: Das
I := 0;
nahe dem Ende ist überflüssig.