stringgrid add column runtime D6

[Vern45]

HI: Using DELPHI 6.

At runtime I want to INSERT and/or DELETE a column(s). My problem is that after I INSERT a column I immediately add text to 3 rows in the new column. However, it does not print, i.e. it remains blank. My code below:

procedure TEntWinForm.LWInsertClick(Sender: TObject);
begin
with sg3page1 do
begin
ColCount := ColCount +1;
Cells[ColCount,0] := '???';
Cells[ColCount,1] := '50' ;
Cells[ColCount,2] := '123456789~123456789';
end;
end;

Note: If I add a second column that columns rows are filled. Then if I delete a couple column followed by INSERTing columns, each column DOES have data in their respective rows.

Thank you, Vern

 

[Vern45]

Solved!

Made ColCount = ColCount-1. That fixed it. I spent a couple days chasing it.

Tks Vern