Delphi for Schleife -> Warnung

[Moombas]

Also ich mache es in der Regel so, das die Schleifenvariable ihren eigene Variable hat (Beispiel gab es hier ja schon). Jedoch immer mit eindeutiger Bezeichnung wofür gezählt wird (wenn möglich):

Delphi-Quellcode:

for Col := 0 to Listen_XLS.ColCount - 2 do
begin
   for Row := 0 to Listen_XLS.RowCount - 1 do
   begin
     Listen_XLS.Cells[Col, Row] := Listen_XLS.Cells[Col + 1, Row];
   end;
end;

bzw. wenn es vorher definiert werden muss wo ich starte/aufhöre auch mal so (nur ein Sample):

Delphi-Quellcode:

start   := 0;
EndeCol := Listen_XLS.ColCount - 2;
EndeRow := Listen_XLS.RowCount - 1;

for Col := start to EndeCol do
begin
   for Row := start to EndeRow do
   begin
     Listen_XLS.Cells[Col, Row] := Listen_XLS.Cells[Col + 1, Row];
   end;
end;

So kann man, sofern man es braucht, diese gesetzten Werte auch mehrfach verwenden. Das erleichtert auch ggf. Anpassungen, wenn aus irgendwelchen Gründen, sich diese Start/Endpunkte verschieben sollen, da nur die Variable geändert werden muss.