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.