Ich will kein Array füllen.
Sondern nur prüfen ob die Positionen regelmäßig sind.
so in der Art:
Code:
i:= array[1]-array[0];
for j := 2 to length(array)-1 do
begin
if array[j]-array[j-1] <> i then
error := TRUE;
end;
next;
end;
if error = TRUE then
break;
[...]Berechnungen