Dann passt das wahrscheinlich in etwa so, wie Du geschrieben hast. Allerdings dient das System, nach dem Du Deinen Code einrückst, eher der Verwirrung des Gegners (und der eigenen), da fühl ich mich überfordert, dem im Detail nachzugehen:
Delphi-Quellcode:
if developersCount > 0 then
begin
for I := DEVELOPER_MIN to DEVELOPER_MAX do
Runpointer := first;
While RunPointer <> nil do
begin
if Runpointer^.content.developerID = Temp_ID then
inc(Temp_ID);
Runpointer := Runpointer^.Next;
end;
end;
Irgendwie sollte man glauben, dass da eine Riesen Schleife für I programmiert ist. Tatsächlich wird aber in der Schleife nur runpointer := first immer wieder ausgeführt, danach macht das Programm mit dem While ausserhalb der For Schleife weiter. Ich glaube nicht, dass das sehr sinnvoll ist.
Ein weiterer Hinweis, um lesbaren Code zu erzeugen:
statt
Delphi-Quellcode:
procedure xyz;
begin
if Normalfall then
begin
endlose wurst von Code, um eine Stufe eingerückt,
mit vielen Unterblöcken,
dass man mühsam zusammenpassende Begin-ends suchen muss
end
else
x:=1
end;
ist m.E. ungleich übersichtlicher:
Delphi-Quellcode:
procedure xyz;
begin
if sonderfall then begin x:=1; exit end;
Endlose Wurst von Code nicht in einem Then-Zweig eingerückt, sondern auf der Hauptebene.
end;