[SOLVED] StringGrid insert row fails

[VB_Lazarus]

Hello,

I have some problems with insert a row and then select it.
I want to duplicate a row.
I got the failure "insert out of range", although the selection is between the first and the last row.
Not outside.

Code: Pascal  [Select][+][-]

1. procedure TfrmMain.Button_DuplizierenClick(Sender: TObject);
2. var
3.    ColumSelect : integer;
4.    RowSelect : integer;
5.    CellText : string;
6. begin
7.   RowSelect := StringGrid_ImportDatei.Row;
8.   showmessage(IntToStr(StringGrid_ImportDatei.RowCount));
9.  
10.   StringGrid_ImportDatei.InsertColRow(false,RowSelect+1);
11.   showmessage(IntToStr(StringGrid_ImportDatei.RowCount));
12.  
13.   for ColumSelect := 1 to StringGrid_ImportDatei.ColCount-1 do
14.       begin
15.          CellText:= StringGrid_ImportAnsicht.Cells[ColumSelect,RowSelect + 1];
16.          StringGrid_ImportAnsicht.Cells[ColumSelect,RowSelect] := CellText;
17.       end;
18. end;                            
19.  

What is wrong with this code.

Best regards

[eljo]

which grid raises the error? StringGrid_ImportAnsicht or StringGrid_ImportDatei?

[VB_Lazarus]

Thank you, this was the answer.
I'm so stupid.
I didn't saw the difference.
I need only the StringGrid_ImportDatei.
I have to change the StringGrid_ImportAnsicht to StringGrid_ImportDatei and the code is correct.

Best regards.