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

[Карась]

клади сюды исходник. Смотреть будем...

[mihali4]

Сообщение от Mr.User

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

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

Осталось совсем чуть-чуть:

StringGrid1.Cells[0,StringGrid1.RowCount-2]
//и вообще везде, где RowCount-2, заменить на RowCount-1
StringGrid1.Cells[0,StringGrid1.RowCount-1]

[Mr.User]

Вот так выглядит код со всеми исправлениями на данный момент, - но по прежнему не работает как надо! Что делать?

procedure TForm1.Button5Click(Sender: TObject);
var i,j: integer;
    flag: boolean;
begin
for i:=0 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:='';
StringGrid1.RowCount:=0;
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-1]:=IntToStr(i);
end;
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=IntToStr(i+1);
end else
flag:=False;
end;
end;

[mihali4]

Вот этот кусок надо немного изменить (RowCount не может быть равно нулю...):

if not flag then
begin   
flag:=True;
if StringGrid1.RowCount>1 then //!!!!!!!!!!!!!!!!!!!!!!!!
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=IntToStr(i);
end;

[Mr.User]

Сообщение от mihali4

Вот этот кусок надо немного изменить (RowCount не может быть равно нулю...):

if not flag then
begin   
flag:=True;
if StringGrid1.RowCount>1 then //!!!!!!!!!!!!!!!!!!!!!!!!
StringGrid1.RowCount:=StringGrid1.RowCount+1;
StringGrid1.Cells[0,StringGrid1.RowCount-1]:=IntToStr(i);
end;

Теперь всё работает как надо! ОГРОМНОЕ СПАСИБО за помощь!!!!