Добавление строки и значения в Stringgrid

[artemavd]

Добрый день!
Мне нужно в StringGrid (в нем 2 колонки) добавить новую строку и занести значение из ParametrName.Textв первую ячейку первой колонки новой добавленной строки.
Делаю так:

var
 r,row: integer;
begin
 if r < 38 then
 begin
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  StringGrid1.Cells[0,38]:='ПРОСТО СТРОКА';
 end;
  r:=StringGrid1.RowCount;
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  r:=StringGrid1.RowCount - 1;
  StringGrid1.Cells[0,r]:=Trim(ParametrName.Text);
 ParametrName.Text:='';
 FormParametrs.Close;
end;

В результате новые строки добавляются и значения заносятся, но между ним появляется лишняя пустая строка. Понимаю, что там, что-то с условием добавления. Прошу помощи в поиске ошибки?

[KORT]

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

Добрый день!
Мне нужно в StringGrid (в нем 2 колонки) добавить новую строку и занести значение из ParametrName.Textв первую ячейку первой колонки новой добавленной строки.
Делаю так:

var
 r,row: integer;
begin
 if r < 38  then
 begin
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  StringGrid1.Cells[0,38]:='ПРОСТО СТРОКА';
 end;
  r:=StringGrid1.RowCount;
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  r:=StringGrid1.RowCount - 1;
  StringGrid1.Cells[0,r]:=Trim(ParametrName.Text);
 ParametrName.Text:='';
 FormParametrs.Close;
end;

В результате новые строки добавляются и значения заносятся, но между ним появляется лишняя пустая строка. Понимаю, что там, что-то с условием добавления. Прошу помощи в поиске ошибки?

1. параметр r в условии не имеет конктретного значения.

var
 r,row: integer;
begin
  r:=StringGrid1.RowCount;
 if r < 38  then
 begin
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  StringGrid1.Cells[0,38]:='ПРОСТО СТРОКА';
 end;
  StringGrid1.Cells[0,r-1]:=Trim(ParametrName.Text);
 ParametrName.Text:='';
 FormParametrs.Close;
end;

[Serge_Bliznykov]

Артём, во=первых, а чему равер r, если Вы ему ничего не присваиваете?!
проверка if r<38 then - это для чего?:!

во-вторых, если r меньше 38 вы добавляете ДВЕ строки (одну по условию then и ещё одну после проверки..

ну и последнее.
Вы, наверное, так хотели написать?

begin
  StringGrid1.RowCount:=StringGrid1.RowCount + 1;
  StringGrid1.Cells[0,StringGrid1.RowCount-1]:=Trim(ParametrName.Text);
   ParametrName.Text:='';
   FormParametrs.Close;
end;