Dynamisches Array: Terminierung auf 1

[Garfield]

Als ich mit dem Programm angefangen habe, kam mir die Terminierung mit 1 sehr entgegen und auf älteren Delphi-Seiten sieht man sie auch noch öfter. Nachdem ich den Text teilweise geändert hatte, kam ich auch auf die Idee von Phistev. Doch dann dachte ich, man könnte die Terminierung vielleicht elegant mit einem Befehl wie SetIndex () oder ähnliches ändern. Allerdings fand ich in der Hilfe nichts dazu.

Nun scheint mir diese Vatinate die einfachste zu sein wenn ich nicht den Quelltext Zeile für Zeile durchsuchen und die Argumente für das Array um 1 reduzieren will.

Auf jeden Fall vielen Dank für Eure Hilfe.