Нужна подсказка! (StringGrid)

[Mr.User]

При выводе результата в СтрингГрид, в конце почему то выводится лишняя, пустая ячейка!
Подскажите пожалуйста как от неё избавиться и получить нормальный вывод результатов!
Вот сам обработчик:

procedure TForm1.Button5Click(Sender: TObject);
var i,j: integer;
    flag: boolean;
begin
for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:='';
StringGrid1.RowCount:=1;
flag:=False;
for i:=0 to ListBox1.Items.Count-2 do
begin
if (StrToInt(ListBox1.Items[i])>StrToInt(ListBox1.Items[i+1])) then
begin
if not flag then
begin
flag:=True;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-2]:=IntToStr(i);
end;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-2]:=IntToStr(i+1);
end else
flag:=False;
end;
end;

[puporev]

В строке 9 напиши StringGrid1.RowCount:=0;
Когда в цикле нужно наращивать переменную не единицу, то начальное ее значение 0. Начальное значениие=1 дают когда в цикле нужно например умножать.

[Mr.User]

Проверил только что, - не помогло!
Возможно есть какие то ещё погрешности!

[mihali4]

StringGrid1.RowCount:=StringGrid1.RowCount+1;   
StringGrid1.Cells[0,StringGrid1.RowCount-2]:=...

Не понял - почему минус два-то? Это же получается - все время занесение идет в ПРЕДПОСЛЕДНИЙ ряд, поэтому неудивительно, что последний всегда оказывается пустым...

[Mr.User]

А какие значения там должны быть?
Я пробовал (-1) и (+1) и другие варианты, - перебрал так сказать всё что можно и нельзя! Пустая ячейка перемещалась в начало, в середину, но чтобы просто изчезнуть, -никак!

[mihali4]

Нумерация столбцов и строк у StringGrid-а начинается с нуля.
Соответственно последняя строка имеет индекс, равный RowCount-1.
Поэтому при первоначальной очистке в вашем случае (без титульной строки и столбца) циклы должны начинаться с 0.
По этой же самой причине, как вам уже говорили, нужно сделать при инициализации не
StringGrid1.RowCount:=1; а
StringGrid1.RowCount:=0;
поскольку именно тут вы и вводите лишнюю строку.

[Карась]

Я не навязываю.... но при написании программ (особенно больших), присваивайте компонентам специальные именна по которым можно было хоть примерно понять за что отвечает этот компонент...

[Mr.User]

Я сделал так как вы сказали, сделал начало цикла с нуля и установил индекс последней строки равный: RowCount-1.
Пустая ячейка переместилась в начало!
Чего может ещё не хватать? Подскажите пожалуйста!

[puporev]

Это пишешь ты.

for i:=1 to StringGrid1.ColCount-1 do
for j:=1 to StringGrid1.RowCount-1 do

Это пишут тебе.

Нумерация столбцов и строк у StringGrid-а начинается с нуля.

Через раз читаешь?

[Mr.User]

for i:=0 to StringGrid1.ColCount-1 do 
for j:=0 to StringGrid1.RowCount-1 do

И эти изменения тоже добавил!
Непомогает! Совсем запутался!